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Estimado amigo de la microinformática: 


Esta colección de programas, escritos en la versión Basic que incorpora el Spectrum, 
va destinada a todos los aficionados a la informática personal, en particular a los 

que utilizan el equipo de Sinclair. No obstante, no es difícil para una mano diestra 
el adaptarlos a otros microordenadores. 


La idea perseguida con este trabajo no ha sido otra que suministrar una primera 
selección de listados, probados y revisados, de todo tipo de aplicaciones: juegos 
recreativos y didácticos, gráficos, utilidades, cálculo científico y técnico. 


Se ha incidido especialmente en las tareas de juegos y cálculo, matizando tres 
aspectos de una forma muy especial: interesante diseño, eficacia en cuanto a ejecución, 
o por la manera excelente con que se logran explotar los recursos hardware del 
Spectrum. 


Es por ello que cada programa va acompañado de comentarios, volcado de pantallas y 
de elementos gráficos, lo que constituye, junto con los tres apéndices, una 
interesante fuente de formación en informática y Basic. Recursos que pueden ser muy 
útiles a la hora de programar aplicaciones propias. Esta es la doble filosofía del 
libro: un mecanismo de puro divertimento para iniciarse en la informática, a la vez 
que una vía para acceder a los secretos de la programación. 


Por otra parte, todos los programas han sido sometidos a un exhaustivo control, de 
forma que se evite la frustante experiencia que es introducir un programa por teclado 
y comprobar que aparecen errores. 


Esperamos, en definitiva, que la colección que se inicia con este libro, contribuya 
tanto a vuestra formación en informática y en programación, como a vuestro 
entretenimiento, con algo tan positivo como agradable de utilizar como es un ordenador 
personal, Sinclair Spectrum en esta ocasión. 
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INTRODUCCION 


Te presentamos en este libro una recopilación de programas para el Spectrum 
que sin duda te gustará. 


Los programas son de lo mejor que se ha hecho en Basic para el Spectrum. Tienes, 
desde programas de juegos, hasta programas para representar gráficos curiosos y 
programas de cálculo numérico. 


Verás que te indicamos cuando en algún programa se ha aplicado algún "truco", 
lo que te puede servir para aprenderlos. 

Observa que para mayor claridad, todos los programas que contienen gráficos 
definidos por el usuario están llenos de sentencias REM. Estas sentencias, con 
una u otra letra, deben ser pulsadas en modo G. 


Te recomendamos que antes de empezar a teclear algún programa leas los apéndices 
que figuran al final del libro, especialmente el apéndice A. 


Esperamos que además de pasar agradables ratos con los programas que aquí se te 
presentan, avances en el conocimiento y posterior dominio de la programación, 
así como que se despierte tu curiosidad por aprender más de este apasionante 
mundo. !Adelante! 


JUEGOS DE ACCION 


Ranas*Batalla de tanques*Caníbales*Ratas*Squash*Serpientes*Bombardero*Formula 1* 
Circo*Mina*Conducción 3-D*Apisonadora*Enladrillar. 


RANAS 
Seguro que ya conoces este juego. Se trata de conseguir llevar a la rana a casa. 


Para ello atravegarás primeramente un río saltando sobre las hojas de nenúfar. 
Luego deberás atravesar la calle, procurando que no te atropellen los coches, 
que van cambiando de dirección. Después ya solo te restará entrar en la casa. 


Las teclas son: 
7.—- Arriba. 
8.- Derecha. 
5.- Izquierda. 


Obtendrás 10 puntos por cada movimiento y si consigues que la rana llegue a 
casa obtendrás un bono de 50 puntos. 


! ADELANTE! 


GRAFICOS U.D.G. 


H=C £=R 9=L 


1 REM XXLA RANAXX 
8 RESTORE 
15 CO SUB 9000 
16 GEO SUB 8000 
18 INK 7: BORDER O: PAPER 2: CLS 
20 LET M=2: LET X=21: LET Y=15: LET SC=0: LET HS=0: LET P=1 
80 LET SC=0: LET P=1 
90 CLS 
100 LET M=2: LET X=21: LET Y=15 
101 PRINT BRIGHT 1j"ORILLA: "5P5" R RANA R "3 FLASH 05 INK 7; "PUNTOS: "5SC5 
BRICHT O: REM R EN MODO G 
110 PRINT » 58 es 58 85 58 85 53 85": REM 5 8 EN MODO G 
120 INK O: FOR N=2 TO 11: PRINT AT N,1;”8eseesesessess388888888838888888888888888 
": NEXT N: REM 8 EN MODO G 
130 INK 1: BRIGHT O: FOR N=14 TO 20: PRINT AT N,1j;"8e8es8s88s88388888288888888888 
g8ese88988888": NEXT N: REM 8 EN MODO G 
140 PRINT AT 19,35 INK 45 PAPER 13"L L L L L L L LL": REM L EN MODO G 
150 PRINT AT 17,33 INK 43 PAPER 13"L L L L L L L LL”: REM L EN MODO G 
160 PRINT AT 13,35 INK 45 PAPER 15" LIL LLL LL oL”: REM L EN MODO G 
170 INK 72 
200 FOR A=1 TO 8: BEEP .009,0 
202 IF X>1 AND X<12 THEN PRINT AT X,Y;j PAPER 05 INK 453"R": REM R EN MODO 6 


210 PRINT AT 3,A3 INK 6; PAPER 05” C c c c C": REM C EN MODO G 
220 PRINT AT 4,A;5 INK 63 PAPER 0;” c c C": REM C EN MODO G 
230 PRINT AT 35,Aj INK 65 PAPER 053" C C c C C”": REM C EN MODO G 

240 PRINT AT 6,A;3 INK 43 PAPER 053" C c C": REM C EN MODO G 

250 PRINT AT 7,A;5 INK 45 PAPER 03" C c c Cc": REM C EN MODO G 
250 PRINT AT 8,A3 INK 65 PAPER 03” c C": REM C EN MODO G 

270 PRINT AT 9,43 INK 63 PAPER 03" C c Cc C": REM C EN MODO 6G 

280 PRINT AT 10,Aj INK 65 PAPER 05" C c c C": REM C EN MODO G 


2935 GO SUB 1000 
300 LET X=X-MX(INKEYS$="7"): IF INKEYS="2?" THEN LET SC=SC+10 
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PRINT AT 0,23;SsC 

IF X=5 THEN GO TO 3500 

LET Y=Y-MX(INKEYS="=5" AND Y>Z2)+HXAC(INKETS="23" AND Y<27) 

PRINT AT X,Y3 BFRIGRT 13 INK 45"R"; BRISHT 01 REM R En MODO 6 
GO SUB 10900 

PRINT AT X,Y3 SRICHT 13 INK “4¿"R"; BRIGHT O: REM R EN MODO 6 
NEYT A 


FOR A=8 TO 1 STEP -1: BEEP .0057,0 

92 1F X>1 AND “12 THEN — FRINT AT X,Y; PAFER 05 1NK %4;3"R": REh REN MODO 6G 
PRINT AT 3,43 INX 65 PAPER 05" € e e a 2": REM C EN MGDO G 
PRINT £7 4,43 INK £3 PAFER Cj3" c t Cc": REM C EN MÚDO 6 

PRINT AT 5,43 INK 55 PAPER 05” C C t S CC”: REM C EN MODU G 

PRINT AT €,43 INX € FAPER 03" C c C": REM C EN MODU G 

PRINT AT 7,A3 INK 65 PAPER 0" € ja c 2": REM C EN MODO G 
PRINT AT 2,43 INX 63 PAPER 03” £ CSC”: REM C EN MUDO G 

PRINT AT 9%,A; INXK 6453 PAPER 0O;*" € e Cc C": REM C EN MODO G 


0 PRINT AT 10,43 INK ¿£; PAFER 0;* C 

PRINT AT X,Y3 BRICHT 123 INK 43"R"3 BRIGET O 
£9 sur 1000 

LET X=X-MX(INKEYS$="2"): IF INKEV+="2" THEN LET SC=SC+i0 
PRINT AT 0,283SC 

LET Y=Y-MXC(INKEVYE="=" AND Y22)+pHX(INKEYS="3" AND Y<27) 

PRINT AT X,Y; BRIGHT 13 INK 393"R"3 BRIGHT 0: REM R EN MODO G 
GO SUB 1000 

PRINT AT X,Y; BRIGHT 135 INK 343"R"3 BRIGHT O: REM  R EN MODO G 
NEXT A 

Go To 200 

PRINT AT X,Y-23"PLCP!"”: 
1F SC>HS THEN  LET HS=SC 
PRINT AT 21,93 FLASH 13” 


c c C": REM C EN MODÚ 6 
: REM OR EN HUDO G 


FOR N=30 TO 1 STEP -8: EEEF .0S3,N: NEXT N 


PULSA UNA TECLA PARA EMFEZAR”: FAUSE 0; PAUSE 0: PA 


USE O: CLS : 62 O 30 


£30 


PRINT AT 21,93 FLASH 13"PULZA UNA TECLA PARA EMPEZAR*: PAUSE O: PAUSE O: PA 


USE O: CLS : 52 TO 80 


1000 IF X>13 AND X<20 THEN PRINT AT X,Y3 PAPER 13"L”; REM L EN MUDO G 
1001 IF X<12 AND X>2 THEN PRINT AT *,Yj PAPER 05" " 

1002 1F X=12 CR X=13 OR X:21 THEN PRINT AT x,Yj PAPER 23" ” 
1003 IF “2 THEN GQ TO 2000 

1009 IF Xc<19 THEN LE7T M=1 

1005 IF X“15 OR X>19 THEN GO TO 3000 

1010 1F Y=2 CR Y=é OR Y=2 OR Y=12 CR Y=15 OR Y=18 OR Y=21 OR Y=24 OR Y=27 THEN 
RETURN 

2000 50 TO 600 

3000 IF X=9 THEN GO TO 3100 

3001 IF X=8 THEN GO TO 3200 

3002 1F X=7 THEN GO TO 3300 

3003 IF X=6 THEN GO TO 3400 

30094 IF X=5 THEN GO TO 3500 

3005 IF X=4 THEN GO TO 3600 

3006 1F X=6 THEN GO TO 32700 

3007 1F X=10 THEN GO TO 3010 

3008 RETURN 

3010 IF Y=A+2 OR Y=A+10 OR Y=A+1é CR Y=A+2i THEN GO TO 4000 
3020 RETURN 

3100 IF Y=A+1 OR Y=A-7 CR Y=A+13 OR Y=A+20 THEN GO TO 4000 
3110 RETURN 

3200 IF Y=A+S5 OR Y=A+12 THEN GO TO 4000 

3210 RETURN 

3300 IF Y=A+1 OR Y=A+10 OR Y=A+18 CR Y=A+21 THEN GO TC 4000 
3310 RETURN 

3400 IF Y=A+2 OR Y=A+11 OR Y=A+19 THEN GO TO 4000 
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3410 RETURN 
3500 IF Y=A+1 OR Y=A+6 OR Y=A+14 OR Y=A+18 OR Y=A+21 THEN GO TO 4000 
3510 RETURN 
3600 IF Y=A+4. OR Y=A+10 OR Y=A+18 THEN GO TO 4000 
3610 RETURN 
3700 IF Y=A+2 OR Y=A+6 OR Y=A+11 OR Y=A+17 OR Y=A+21 THEN GO TO 4000 
3710 RETURN : 
4000 PRINT AT X,Y-2;"SPLAT": BEEP .1,10: FOR N=10 TO -10 STEP -1: BEEP .01,N: NE 
XT ON 
4020 PRINT AT 21,4; FLASH 1;"PULSA UNA TECLA PARA EMPEZAR": PAUSE O: PAUSE O: PA 
USE 0: CLS : GO TO 80 
7000 1F Y=4 OR Y=12 OR Y=20 OR Y=27 THEN GO TO 7500 
7010 PRINT AT X,Y-3;"FALLO!'": FOR F=1 TO 3: BEEP .09,8: BEEP .75,12: BEEP .03,8: 
BEEP .03,6: BEEP .03,4: BEEP .02,2: PAUSE 10: NEXT F 
7011 BEEP .04575,25: BEEP .045,20: BEEP .0275,15: BEEP .03,10 
7030 PRINT AT 21,45 FLASH 1;"PULSA UNA TECLA PARA EMPEZAR": PAUSE O: PAUSE 0: PA 
USE O: CLS : GO TO 80 
7500 PRINT AT X,Y-45"LO HICISTE": FOR F=1 TO 3: BEEP .02,2: BEEP .03,4: BEEP .03 
,6: BEEP .03,8: BEEP .075,12: BEEP .09,8 
7501 PAUSE 10: NEXT F : 
7502 BEEP .03,10: BEEP .0375,15: BEEP .045,20: BEEP .04575,25: BEEP .049,15 
7510 PRINT AT 21,2;. FLASH 1;"PULSA UNA TECLA PARA CONTINUAR": PAUSE O: PAUSE O: 
PAUSE O: LET P=P+1: LET SC=SC+50: CLS : GO TO 90 
8000 BORDER O: PAPER O: INK 7: CLS' 
8005 PLOT 0,0: DRAW 0,175: DRAW 255,0: DRAW 0,-175: DRAW -255,0 
8010 PRINT AT 1,105 INK 4;"R LA RANA R": INK 7: REM R EN MODO G 
8020 PRINT "EL OBJETIVO DE ESTE JUEGO"5 INK 7: PRINT "ES LLEVAR A LA RANA SALTAN 
DO*"5 INK 43"R"j INK 75""": PRINT "SOBRE LAS HOJAS DE NENUFAR”"5 INK 45 "L“"5J INK 
7: REM R L EN MODO G ; 
8030 PRINT " EVITANDO A LOS COCHES*"3 INK 63"C"5 INK 75"*": PRINT "QUE VAN CAMBI 
ANDO DE DIRECCION": REM C EN MODO G 
8040 PRINT "HASTA LLEGAR A CASA “58 85*.”: REM 5 8 EN MODO G 
8050 PRINT : PRINT " 7=ARRIBA": PRINT " 8=DERECHA, 5=IZQUIERDA"” 
8051 PRINT " NO PUEDES SALTAR RAPIDO EN": PRINT "LA CARRETERA ") INK 25"TEN CUI 
DADO"5 INK 7 
8060 PRINT : PRINT "TE DAN 10 PUNTOS POR * 
8070 PRINT "CADA MOVIMIENTO HACIA DELANTE Y": PRINT "SI TU RANA LLEGA (A CASA A S 
ALVO": PRINT "OBTENDRAS"5: PRINT FLASH 13" UN BONO DE 50..." 
8080 OVER 1: PRINT : PRINT * RANA="5 BRIGHT 15 INK 43" "5 BRIGHT 05 INK 7) 
8090 PRINT : PRINT " NENUFAR="3 INK 43"L"j INK 75: REM L EN MODO G 
8100 PRINT * COCHE="35 INK é63"C";5 INK 75: REM C EN MODO G 
8110 OVER O: PLOT 0,0: DRAW 0,175 
8120 PRINT AT 20,23 INK 5;"PULSA ENTER PARA COMENZAR": INK 7: INPUT Q6 
38130 FOR F=1 TO 3: BEEP .02,2: BEEP .03,4: BEEP .3,6: BEEP .03,8: BEEP .075,12: 
BEEP .09,8 
8140 PAUSE 10: NEXT F 
8150 BEEP .03,10: BEEP .0375,15: BEEP .045,20: BEEP .04575,25: BEEP .049,15 
8140 RETURN 
8997 PLOT 0,0: DRAW 0,175 
2998 STOP 
8999 RETURN 
9000 FOR F=0 TO 7: READ C: POKE USR "R"+F,C: NEXT F: REM R EN MODO G 
9010 FOR F=0 TO 7: READ C: POKE USR "C"+F,C: NEXT F: REM C EN MODO G 
9020 FOR F=0 TO 7: READ C: POKE USR "L"+F,C: NEXT F: REM LEN MODO G 
9025 RETURN 
9030 DATA 24,60,90,90,60,66,129,0 
9035 DÁTA 119,34,126,63,63,126,34,119 
9050 DATA 0,60,126,126,126,60,8,16 
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BATALLA DE TANQUES 


Este es un juego para dos jugadores. 


Tu misión es destruir el tanque enemigo. Para ello, y sirviendote de tu astucia, 
deberás disparar al otro tanque, evitando que él te alcance a tí. 


Cada vez que alcances al otro tanque tu puntuación aumenta un punto. Gana el 
jugador que antes alcance nueve puntos. 


Las teclas para jugar son: 
TANQUE DE LA IZQUIERDA: 
1.- Disparo. 
2.- Subir. 
5.- Bajar. 
Q.- Izquierda. 
E.- Derecha. 
TANQUE DE LA DERECHA: 
8.- Disparo. 
9.- Subir. 
L.- Bajar. 
T.- Izquierda. 
P.- Derecha. 


NOTA: Observa que en este programa se ha reemplazado INKEY$ por IN para leer el 
teclado, con lo que el programa lee las dos teclas que se pulsen a la vez y 
actúa en consecuencia. 


BRAF ICOS U.D.G. 
MH=A — F=5: M=C E=D *+*=E H=F 


1 REM %X BATALLA DE TANQUES * 

2 BORDER 6: PAPER 7: INK 0: CLS 

5 BORDER á: PAPER 72: INK O: CLS 
10 LET A$="": LET B$="A": LET C$="": LET Dh="A": REM "A" EN MODO G 

20 FOR I=1 TO 6: READ P$: FOR J=0 TO 7: READ P: POKE USR PS+J,P: NEXT J: NEXT 


30 GO SUB 1000 

40 LET L=0: LET R=0: LET S=0: LET PL=0 

50 LET MXíi=11: LET Yi=2: LET X2=11: LET Y2=29 

$0 PRINT AT 0,23 INK 13"YZQUIERDA=0"3AT 0,235 INK 2;j"DERECHA=0" 
70 PRINT AT X1,Y13 INK 1;3BS5AT X2,Y23 INK 2;DS3 

£0 BEEP .2,12: BEEP .2,24: BEEP .2,12: BEEP .2,24: BEEP .8,0 
199 REM "A" "BE" "C" *D" EN MCDC G 
200 IF IN 43486=253 THEN LET A$="7": LET BS="A" 
205 IF IN 6£4510=254 THEN LET A$="5": LET BS="B"* 

210 1F IN 64510=251 THEN LET A%$="8": LET BS="D" 

215 TF IN £47022=253 THEN LET Ab="6": LET BS=*C” 

220 IF IN 6$1438=253 THEN LET C$="7": LET D$="A" 
225 IF IN 57342=251 THEN LET C$="5": LET D$="B" 

230 IF IN 57342=2549 THEN LET C$="8": LET D$="D" 

235 IF IN 49150=253 THEN LET C$="6": LET D$="C” 

240 BEEP .015,-10 

250 PRINT AT X1,Y13" " 
250 LET Xi=X1+(AS="6")-(A$="7"): LET Yi=Y1+(A$="8")-(A$="5") 
270 IF SCREENS (X1,Y1)="F" THEN LET Xi=X1-(A$="6")+(A6="7"): LET Yi=Yi1-(AS="8” 
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)+(A$6="5"): REM F EN MODO G 
280 PRINT AT X1,Y15 INK 13BS 
300 PRINT AT X2,Y23" " 
310 LET X2=X2+(C$="6")-(C$="7"): LET Y2=Y2+(C$="8")-(C$="5") 
320 IF SCREENS (X2,Y2)="F" THEN LET X2=X2-(CS$="6")+(C$="7"): LET Y2=Y2-(CS="8" 
1+(C$="5"): REM F EN MODO G 
330 PRINT AT X2,Y25 INK Z3Ds 
340 IF IN 63486=259 THEN LET PL=1: LET X$=B$: LET XX=X1: LET YY=Y1: GO SUB 700 
350 IF IN 61438=251 THEN LET PL=2: LET X$=Ds$5: LET XX=X2: LET YY=Y2: GO SUB 700 
650 LET A$="": LET C$="": GO TO 200 : 
720 LET X=(X%="C")-(X$="A"): LET Y=(X$="D")-(X$="B"): REM A BC D EN MODO G 
>50 LET XX=XX+X: LET YY=YY+Y 
760 IF SCREENS (XX,YY)="F"” THEN FOR I=1 TO 30: BEEP .01,0: NEXT 1: RETURN : RE 
M F EN MCDO G 
770 IF ATTR (XX,YY)<>56 THEN GO TO 850 
780 PRINT AT XX,YYj"E": BEEP .02,30: REM E EN MODO G 
790 PRINT AT XX,YY3*" ”": GO TO 750 
850 IF ATTR (XX,YY)=57 THEN LET R=R+1: PRINT AT 0,313 INK 25R5AT X1,Y1j INK 15 
FLASH 1;BS 
250 IF ATTR (XX,YY)=58 THEN LET L=L+1: PRINT AT 0,125 INK 15L5AT X2,Y2j INK 2) 
FLASH 13Ds8 
270 FOR I=-20 TO 40: BEEP .01,1: NEXT 1 
880 PRINT AT X1,Y1j" "AT X2,Y23" ": LET B$="A": LET DS="A": REM A EN MODO G 
885 IF L=9 OR R=9? THEN GO TO 900 
890 LET Xi=11: LET Y1=2: LET X2=11: LET Y2=29: RETURN 
900 LET Y$="GAME OVER”: PRINT AT 10,12: GO SUB 980 
910 PAUSE 50 
920 LET Y$="PULSA UNA TECLA PARA CTRO JUEGO”: PRINT AT 12,25: GO SUB 980 
930 IF INKEY$="" THEN GO TO 930 
940 PUN 
920 FOR I=1 TO LEN Y$: PRINT -INK 4;Y$(1);3: BEEP .08,0: NEXT I: RETURN 
909 REM F EN MCDO G 
1000 PRINT "FFEFFEFFFFEFFFFFFFFFFFFFFFFFFFFF" 
2010 PRINT "EFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFF” 
1070 FOR I=1 TO 19: PRINT "F";TAB 31;"F": NEXT 1 
1030 PRINT "FFFFEFFFFFFTEFFFFFFFFFFFFFFFFFFF" 
1040 FOR 1=7 TO 25: PRINT AT 1,15;*FF" 
1080 PRINT AT 11,22; "FFEFFFFF” 
1060 TOR 155 TO 9: PRINT AT 1,93"F*";AT 1,225"F"jAT 14+8,9;"F"j¡AT 1+8,22;"F": NEXT 
1 
1070 PRINT 27 7,103"FF"3AT 15,105"FF"jAT 7,20; "FF"5AT 15,20; "FF" 
1080 FOR 1=9 TO 13: PRINT AT 1,43"F";A7 1,273”F": NEXT 1 
10% PRINT AT OO9,X3"F"3AT 13,3;"F"3A7 9,28;"F";AT 13,28;"F": RETURN 
4999 REM "A","B","C","D","E","F" EN MODO G 
5000 DATA "A”",BIN 10000,»IN 10010010,BIN 10010010,BIN 10111C0:0,BIN 11111110,BIN 
10111010,BIN 10111010,BIN 10000010 
£010 DATA "2",C,BIN 1111111,BIN *000,PIN 11110,BIN !1111110,BIN 11110,BIN 1000,B 
IN 1111121 
5020 DATA "C",BIN 1000001,BIN 1011101,BIN 1011101,BIN 1£1111114,BIN 1011101,BIN 10 
01901,RIN 1001001,BIN 1000 
5030 DATA "D",BIN 11111110,PIN 10000,BIN 11:1000,BIN !1:1111,BIN 1111000,BIN 100 
00,BIN ?t1111110,0 
=040 DATA "E",0,0,0,BPIN 10000,BIN 111000,BIN 10000,0,0 
5050 DATA "F" BIN 100100,BIN 100100,BIN 11111111,BIN 100100,BIN 100100,BIN 11111 
111,BT5M 100100,PIN 100100 
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CANIBALES 


Has naufragado en una isla habitada por caníbales. Estos caníbales no prueban 
la carne fresca desde hace mucho tiempo y por eso se lanzarán sobre tí para 
devorarte. 


Tu única forma de deshacerte de ellos, es guiarlos hacia los pozos sin fondo que 
hay en la isla para que caigan en ellos. 


Ten cuidado, ya que tú sólo puedes moverte horizontal y verticalmente, pero los 
caníbales también se pueden mover en diagonal y de forma más rápida que tú. 


Las teclas para moverte son: 
5.- Para ir a la izquierda. 
6.- Para bajar... 

7.- Para subir. 
8.- Para ir a la derecha. 
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Los caracteres gráficos que aparecen en el listado se consiguen con las teclas 
indicadas al principio del listado en modo gráfico. 


50 
60 
70 
80 
90 
100 
110 
120 
6 
130 
140 
1530 
200 
205 
210 
220 
225 
230 
240 
300 
310 
320 
330 
340 
350 
360 
380 
390 
400 
410 
420 
450 
460 
650 
670 
680 
STEP 
690 


810 
850 
850 
900 
910 
920 
930 
949 
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GRAFICOS U.D.G. 


0=A f=B $=C 


REM X% CANIBALES XX 
RANDOMIZE 
FOR I=1 TO 3: READ P*$: FOR J=0 TO 7: READ P: POKE USR P$+J,P: NEXT J: NEXT 


DIM Af(6): DIM B(6) 

LET P=10: LET Q=15 

BORDER O: PAPER 7: INK 0: CLS 

FOR I=1 TO 25: PRINT AT RNDX20,RNDX303 INK 43"C": NEXT I: REM C EN MODO G 


FOR I=1 TO 12: PRINT AT RNDX20,RNDXY305 INK 13"0": NEXT 1 


FOR I=1 TO é 
LET Y=INT (RNDX20): LET Y=INT (RND*30): IF ATTR (X,Y)<>56 THEN GO TO 110 
LET A(I)=X: LET B(I)=Y: PRINT AT A(1),B(1)3 INK 2;3"A”: NEXT I:; REM A ENMODO 


IF ATTR (P,0)<>56 THEN LET Q=9+1: GO TO 130 

PRINT AT P,0;"B": REM B EN MODO G 

BEEP .2,12: BEEP .2,24: BEEP .2,12: BEEP .2,24: BEEP .8,0 

IF INKEYS<>"" THEN GO TO 200 

IF INKEYS="" THEN GO TO 205 

LET AS=INKEYS: LET M=(A$="6")-(A$="7"): LET N=(A$="8")-(A$="5") 
PRINT AT P,Q;" * 

IF ATTR (P+M,Q+N)=57 THEN GO TO 800 

IF ATTR (P+M,Q+N)=56 THEN LET P=P+M: LET Q=0+N 

PRINT AT P,0;"B": REM B EN MODO G 

FOR I=1 TO 6: IF A(1)=99 THEN GO TO 350 

LET A1=SGN (P-A(1)): LET B1=SGN (Q-B(1)) 

PRINT AT A(1),B(1)3” ": IF ATTR (A(1)+A1,B(1)+B1)<>56 THEN GO TO 650 
LET A(I)=A(I)+A1: LET B(1)=B(1)+B1 

PRINT AT A(I),B(1)5 INK 25"A": REM A EN MODO G 

IF A(I)=P AND B(1)=92 THEN GO TO 850 

NEXT 1 

BEEP .05,40 

LET G$="" 

FOR I=1 TO 6: IF A(1)=99 THEN LET G$=G$+" * 

NEXT 1 

IF LEN G$<6 THEN GO TO 200 

PRINT AT 20,23 FLASH 1; INK 3;"HAS ESCAPADO DE LOS ZOMBIES” 

FOR I=-30 TO 50: BEEP .02,1: NEXT 1: GO TO 900 

LET AT=ATTR (A(1)+A1,B(1)+B1) 

IF AT<>57 THEN GO TO 340 

PRINT AT 21,35 FLASH 15 INK 35"CUIDADO VIENE OTRO ZOMBIE": FOR S=30 TO -30 
-1: BEEP .02,S: NEXT S 

PRINT AT 21,35" ": LET A(1)=99: GO TO 350 


800 PRINT AT 13,33 FLASH 13 INK 3;"INCONSCIENTE, TE HAS CAIDO EN UN AGUJERO" 


FOR S=30 TO +30 STEP -1: BEEP ,02,S: NEXT S: GO TO 900 


PRINT AT 20,03 FLASH 13 INK 3;"LOS ZOMBIES HAN CONSEGUIDO OTRA VIDA" 
FOR I=1 TO 2: BEEP .1,0: BEEP .1,12: BEEP .1,24: NEXT I: BEEP 1,0 
PRINT Ri1j INK 6;"PULSA UNA TECLA PARA OTRO JUEGO" 

IF INKEYS$<>"" THEN GO TO 910 

IF INKEYS="" THEN GC TO 2920 

RUN 

REM "A","B","C” EN MODO G 


JUEGOS DE ACCION 


950 DATA "A",O,BIN 1100,BIN 10110110,BIN 11111111,BIN 11000011,BIN 1000010,BIN 
111100,0 


960 DATA "B",BIN 1000,BIN 1111110,BIN 10010000,BIN 111100,BIN 100100,BiN 100100 
,BIN 100100,BIN 110110 

970 DATA "C”",BIN 111000,BIN 1000100,BIN 10000010,BIN 1011i01,BIN 11101110,BIN 1 
01000,BIN 101000,BIM 1000100 


RATAS 
El juego consiste en guiar dos ratas que andan provistas de un cubo. 


Las ratas tienen que coger los ladrillos que caen del techo con el cubo que 
llevan entre las dos. Con estos .ladrillos construirán una pared; cuantos más 
ladrillos cojas, la pared será más alta. Los puntos que recibas por ladrillo 
van aumentando al mismo tiempo que aumenta la altura de la pared. Además de 
crecer el valor de los ladrillos, también cambia el valor de éstos. 
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JUEGOS DE ACCION 


Si coges seis ladrillos consigues una bonificación, que se sumará a tu 
puntuación al final de la partida. Si fallas seis ladrillos seguidos perderás 
una vida; al empezar el juego tienes cinco vidas. 


En una partida caen 300 ladrillos. El juego finalizará cuando hayan caido los 
300 ladrillos o cuando pierdas todas las vidas. 


El número de ladrillos que quedan viene dado en la parte superior de la pantalla 
y el número de vidas perdidas en la inferior. 


La puntuación se guarda en la parte superior, quedando grabada la máxima 
puntuación obtenida hasta el momento. 


Los caracteres gráficos se pueden ver al principio del listado. 


GRAFICOS U.D.G. 
pS 


=AB pBp=CcH=Y XK H=D F Mold=EGE 


1 REM + RATAS 3 
5 BORDER O: PAPER O: CLS : LET n$="": LET h=0 
10 FOR k=1 TO 8: READ a$: FOR j=0 TO 7: READ b: POKE USR a$+j,b: NEXT j: NEXT 


k 

20 DATA *a",0,127,127,96,96,127,127,0,”"b",0,254,254,6,6,254,254,0,"c",0,126,12 
6,102,102,126,126,0,"d"”",195,255,66,86,126,34,213,141 

30 DATA "e",129,129,195,255,36,36,231,231,"f",195,255,66,106,126,68,171,177,"9 
”,0,0,255,66,66,66,126,0,"h",60,118,227,201,221,201,201,201 

140 LET i=0 

150 INK 4: PRINT : PRINT : PRINT TAB 53 FLASH 15 "XRATASERATASIERATAS": 1F 1 
=1 THEN G0 TO 270 

163 FOR j=0,TO 21: PRINT AT j,O5"H"5AT j,313"H": NEXT j: FOR j=0 TO 31: PRINT A 
T 0,jj3"H"5AT 21,j;5"H": NEXT j: REM H EN MODO G 

165 INK 6: PRINT AT 4,25” Dirige tus dos ratas de iz-" 

170 PRINT AT 5,13"quierda a derecha usando las"jAT 6,1]"teclas 9 y O" 

175 PRINT AT 7,2;"Coge los ladrillos con el cu-” 

180 PRINT AT 8,1;3"bo y construye el muro.” 

185 PRINT AT 10,23"cuanto mas alta sea la pared,”'j¡AT 11,1) "MAYOR SERA TU PUNTU 
ACION" 

190 PRINT AT 13,23"Ganaras bonos por é ladrillos”"jAT 14,1)"que pongas en column 
a.” 

195 PRINT AT 16,23"Peroc mantente alerta porque” 

200 PRINT AT 17,15" fallos significan que pier-"jAT 18,1j"des una vida, tienes 
s.* 

210 PRINT Aij"Pulsa una tecla para continuar": PAUSE O: CLS 

230 INK 4: PRINT : PRINT : PRINT TAB 53 FLASH 15 "RATASIABHRATASIRATASIA": IF i 
=i THEN GO TO 230 

235 FOR j=0 TO 21: PRINT AT j,Oj"H"jAT j,315"H": NEXT j: FOR j=0 TO 31: PRINT A 
T O0,j3"H"5AT 21,j5"H": NEXT j: REM H EN MODO G 

240 PRINT AT 4,2;"Si llegas a los 2000 puntos,” 

241 PRINT AT 5,15"0 si haces una fila de 6 la-” 

242 PRINT AT 6,13"drillos "5; INK 4j"verdes”"j INK 6j" o *5. INK 3] "magentas”j INK 
6" ga-"jAT 7,1;j"nas una vida extra." 

2435 PRINT Ri5j FLASH 1j"PULSA UNA TECLA PARA EMPEZAR": PAUSE O: CLS 

250 RESTORE 260: FOR K=1 TO 3: FOR J=1 TO 4: READ L: BEEP 0.1,L: NEXT J: PAUSE 
3: NEXT K: BEEP 0.2,10: BEEP 0.4,7: PAUSE 10 

255 FOR K=i TO 2: FOR J=1 TO 4: READ L: BEEP 0O.1,L: NEXT J: PAUSE 3: NEXT K: PA 
USE 1: BEEP 0.15,4: PAUSE 1: BEEP 0.15,4: PAUSE 1: BEEP 0.15,2: PAUSE 1: BEEP O. 
15,2: PAUSE 3: BEEP 0.2,0 

260 DATA 4,5,7,3,9,5,7,3,9,5,7,10,9,5,7,3,4,5,7,3 

265 LET I=1: GO TO 150 
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280 INK 6: PRINT : PRINT " MAX PUNTUACION="3H 
300 PRINT : PRINT " POR "¿Ns 
305 PRINT R1j FLASH 1;"PULSA UNA TECLA PARA EMPEZAR": PAUSE O: CLS 
=00 INK 4: PLOT 0,159: DRAW 255,0: DRAW 0,-143: DRAW -235,0: DRAW 0,143 
S10 INK 7: PRINT AT 0,03"D"5AT 0,31;"F": REM D,F EN MODO G 
570 PRINT AT 1,03"E"3AT 1,31;"E": REM E EN MODO G 
530 INK 2: FOR k=1 TO 29 STEP 2: PRINT AT 1,k;5"AB": NEXT k: REM AB EN MODO G 
540 INK 5: PRINT AT 0,2;”"PUNTIS="5AT 0,14;"LADRILLOS= "¡AT 21,15"BONOS= "¿AT 21 
14; "UIDAS= ” 
550 TIME 4: PRINT AT 20,1; "RECIBIDOS= "¡AT 20,145;"ERRADOS= * 
=60 LET Q0=0: LET D=0: LET CA=0: LET M=1: LET LL=26: LET U=0: LET E=1: LET Z=2: 
LET 3=0: LET Y=18: LET X=3: LET A=19: LET B=3 
570 FOR K=1 TO 309 
590 LET C=IMT (23%RND)+4 
590 FOR P=3 TO Y 
£00 LET BR=300-K 
610 INK 7: PRINT AT P,C53"C": REM "C" EN MODO G 
£20 IF INKEY$="9" AND X>3 THEN LET X=X-1 
$30 IF INKEYS$="0" AND X<26 THEN LET X=X+1 
6440 INK 7: PRINT AT Y,X-1;" EGE ": REM EGE EN MODO G 
£50 PRINT AT Y-1,X-13” DF ": REM D F EN MODO G 
660 PRINT AT P,C;" * 
£70 NEXT P 
660 IF B=29 THEN GO SUB 1000 
690 IF Y=15 THEN LET Z=5: LET E=2 
700 IF Y=13 THEN LET Z=6: LET E=3 
710 1F Y=11 THEN LET Z=3: LET E=4 
720 IF Y=10 THEN LET Z=4: LET E=5 
730 IF C=X+1 THEN GO SUB 2000 
740 IF C<3X+1 THEN GO SUB 3000 
750 INK 6: PRINT AT 0,8;SjAT 0,27jBR;3" " 
760 INK 7: PRINT AT 20,105CAjAT 20,223M 
770 NEXT K 
720 50 TO 6000 
1000 LET B=3: LET A=A-1: PRINT AT Y,x3" ": LET Y=Y-1: RETURN 
2000 LET M=0: LET CA=CA+1: LET S=S+(19-Y)XE: INK Z: PRINT AT A,B;"AB": BEEP .005 
,10: BEEP .005,15: LET B=B+2: REM "AB” EN MODO G 
2100 IF CA=é THEN GO SUB 5000 
2150 IF S>2000 £ND D=0 THEN GO SUB 7000 
2200 PETURN 
7000 LET CA=0: LET M=M=1 
3100 IF M=6 THEN GS“ SUB 4000 
3200 PEEP .005,-10: BEEP .005,-25: RETURN 
4000 BEEP 0.2,-20: BEEP 0.3,-30: BEEP 0.5,-40: BEEP 0.6,-50: LET M=0: INK 6: PRI 
NT AT 21,LL3"H": LET LL=LL+1: REM H EN MODO G 
4100 IF LL-24=5 THEN GO TO 6000 
4200 PETURN 
5090 LET PO=(19-Y)X30: LET U=sU+BO: INK 4: LET CA=0 
5100 PESTORE 5500: LET V=.05: FOR J=1 TO 9: READ W: BEEP V,W: PRINT AT 3,15 FLAS 
Y 13"PONOS*"5AT 3,73B0: NEXT J: PRINT AT 3,13" “¿AT 21,85U 
5150 1F (2=4 OR Z=3) AND (+0 THEN GO SUB 7000 
5200 RETLIRN 
5500 DATA 6,8,10,8,6,8,10,8,6 
500 PRINT AT 3,113 INK 25 FLASH 15”CAME OVER" 
6110 LET S=38U 
€150 TE SH THEN PRINT AT 4,13"%%%X% DESGRACIADAMENTE NO SUPERASTE LA MAXIMA PU 
NTUPCION —AXLL” 
£200 IF S>H THEN LET H=S: INPUT "MAXIMA FUNTUAC IONFENOMBRE: * ; N$ 


4250 PRINT _INK S¡AT 5,13” OTR ? S/N” 
4250 Porr > 3A 3" OTRA PARTIDA? S/N 


67270 IF P$<>"S" AND P%<>"=" THEN GO TO 623 
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6280 IF PS="N" OR P$="n” THEN STOP 
6290 IF P$="S" OR PS="s" THEN CLS : PRINT Rij"Instrucciones? S/N" 
6300 PAUSE O 
6310 IF INKEYS="n" OR INKEYS="N" THEN GO TO 265 
6320 IF INKEYS="s" OR INKEYS="S" THEN GO TO 140 
6420 60 TO 6290 
7000 RESTORE 7200: PRINT AT 3,115 FLASH 1; INK 75"VIDA EXTRA": LET Q=1 
7050 BEEP .25,7: BEEP .4,14: BEEP .1,12: BEEP .1,11: BEEP .15,9: BEEP .3,19: BEE 
P .4,14 
7100 PRINT AT 3,115" ": LET LisLL-1: LET D=1: RETURN 
PUNTOSS55S LADRILLOS= 13€ 
CAES 
EJ 
CE A A E 
¡Po e Ps [| 
¡[o 
2 E O E 
¡== ]=|=]=] 
EA E A E 
RECIBIDOSO ERRADOS=5 
BONOS= 150 UIDAS= T , 
SQUASH 


¿Quieres jugar una partida de squash? Si es así te divertirás con este 
entretenido juego. 


Para mover la raqueta debes utilizar las teclas: 
M.- Para ir a la derecha. 
N.- Para ir a la izquierda. 


En cada juego sólo hay tres bolas. Tu puntuación será mayor cuanto más tiempo 


estés 


jugando con una pelota antes de que se te escape por detrás. La puntuación 


aumenta 245 puntos por cada golpe que des a la pelota. 


Siéntate y, a jugar. 
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GRAFICOS U,D.G. 


==- e 0=c 


1 REM XX SQUASH *%*% 
3 GO SUB 360 
4 LET PUNTOS=0 
5 LET D=1 
7 LET 6=0 
10 LET A=1: LET B=1: LET C=7: LET E=1: LET F=1 
90 PRINT AT 15,05 FLASH 1;"BOLA EN JUEGO> "5; INVERSE 15D 
100 PRINT AT 0,0; INK 2;"8886S883888823988888": REM 8 EN MODO G 
110 FOR X=A TO 9 
120 PRINT  INK 2;"8"5TAB 14;)"8": REM 8 EN MODO G 
130 NEXT X 
150 LET C=C+(INKEYS="M")-(INKEYS="N") 
160 IF C<ABS A OR C>12 THEN GO TO 180 
170 PRINT AT 10,C-13 INK 43" AB "5: REM AB EN MODO G 
172 1F E=9 AND C<>7 AND C+ABS A<>F THEN GO TO 300 
175 LET G=G+ABS A 
180 PRINT AT E,F;" ” 
190 LET E=E+A 
200 IF E=ABS A OR E=? THEN LET A=-A: BEEP .007,30: LET PUNTOS=PUNTOS+245: PRIN 
T AT 0,16; INVERSE 15 INK 3;"PUNTOS: "¿PUNTOS 
210 LET F=F+B 
220 IF F=ABS B OR F=13 THEN LET B=-B: BEEP .007,10: LET PUNTOS=PUNTOS+245: PRI 
NT AT 0,16; INVERSE 15 INK 3;"PUNTOS: ”;PUNTOS 
230 PRINT  INK 1jAT E,F5$"C": REM C EN MODO G 
235 IF E=9 THEN LET B=SGN B*(INT (RNDXRND)+ABS A) 
240 GO TO 140 
310 IF D<4 THEN PRINT AT 15,05 FLASH 1; PAPER RND*75 INK 9;"BOLA EN JUEGO> ”; 
INVERSE 15D 
315 LET D=D+1 y 
320 FOR G=1 TO 50: BEEP .01,G: NEXT G 
340 IF D<4 THEN CLS : GO TO 10 
345 PRINT AT 20,05 FLASH 13 INK 25 PAPER 6;"SE TERMINO EL JUEGO!": FOR G=50 TO 
O STEP -.5: BEEP .005,G: NEXT G 
350 RUN 
360 FOR Z=1 TO 3 
370 READ Z5* 
380 FOR G=0 TO 7? 
390 READ M 
400 POKE USR Z$+G,M 
410 NEXT G 
420 NEXT Z 
430 RETURN 
440 DATA "A",63,63,63,0,0,0,0,0 
450 DATA "B",252,252,252,0,0,0,0,0 
460 DATA "C",60,126,255,255,255,255,126,60 
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BOLA EN JUEGO > 


SERPIENTES 
En este juego debes jugar contra otra persona. 


Cada jugador controla una serpiente que crece continuamente. El objeto del juego 
es hacer perder al contrario. Para hacerle perder deberás hacer que choque 
contra tu cuerpo o el suelo. Si una serpiente sale por una parte de la pantalla, 
aparece por el lado opuesto. 


Los controles son: 
SERPIENTE NEGRA: 
B.- Izquierda. 
N.- Bajar. 
M.- Subir. 

S.- Derecha. 
SERPIENTE BLANCA: 
1.- Izquierda. 

2.- Bajar. 
3.- Subir. 
4.- Derecha. 


NOTA: Observa que el ordenador reconoce todas las teclas que se pulsen, aunque 
se pulsen a la vez debido a que usa la sentencia IN, en lugar de INKEY$. 


1 REM 4% SERPIENTES 3H 

S GO SUB 8000 

9 LET A$="": LET Pi=0?: LET P2=0: LET R=O: LET H=0 
10 LET Xz=1!?: LET Y=1: LEFT N=20; LET Mx=30Q 
20 PRINT AT X,Y:+"0"3AT N,M5 INVERSE 15”*0" 
30 LET A=IN 63486! LET C=IN 32766 
45 BEEP .004,20 
50 IF A=233 THEN LET B=1 
60 IF A=251 THEN LET B=2 
70 IF A=254 THEN LET B=3 
80 IF A=257 THEN LET B=4 
100 IF B=1 THEN LET X=X+1: GO SUB 9500 


110 
120 
130 
150 
160 
170 
180 
200 
z10 
220 
230 
240 
250 
259 
260 
261 
262 


IF B=2 THEN LET X=X-1: GO SUB 9500 
IF B=3 THEN LET Y=Y-1: GO SUB 9500 
IF B=4 THEN LET Y=Y+1: GO SUB 9500 
IF C=247 THEN LET H=1 

IF C=251 THEN LET H=2 

IF C=239 THEN LET H=3 

IF C=253 THEN LET H=4 

IF H=1 THEN LET N=N+1: GO SUB 2000 
IF H=2 THEN LET N=N-1: GO SUB 2000 
IF H=3 THEN LET M=M-1: GO SUB 9000 
IF H=4 THEN LET M=M+1: GO SUB 9000 
IF X=21 THEN LET Xz=1 

IF X=0 THEN LET X=20 

IF N=21 THEN LET N=1 

IF N=O THEN LET N=20 

1F Y=31 THEN LET Y=1 

IF Y=0 THEN LET Y=30 


270 IF M=31 THEN LET M=1 
271 IF M=0 THEN LET M=30 
290 GO TO 20 
8000 INPUT "JUGADOR 1. TU NOMBRE: “5 LINE Ns 
8010 INPUT “JUGADOR 2. TU NOMBRE: "5 LINE Ms 
8015 CLS 
8020 RETURN 
8030 LET Pi=P1+1 
8031 PRINT AT N,M3 FLASH 15" “: FOR A=0 TO 10: FOR S=1 TO 7: 
S: NEXT A 
8032 CLS 
8035 IF Pi=P2 THEN LET AS="NADIE” 
8040 IF P1>P2 THEN LET AS$=NS 
8045 IF P2>P1 THEN LET AS=MS 
8046 PRINT AT 5,5;" ESTA GANANDO "¡AT 7,5; "JUGADOR 1-"jP15AT 
8047 PRINT AT 12,5;"UNA TECLA PARA EMPEZAR” 
8048 IF INKEYS="" THEN GO TO 8096: PAUSE 30 
8049 CLS : 60 TO 5 
8050 IF P2>P1 THEN LET As=Ms 
8060 LET P2=P2+1 
8061 PRINT AT X,Yj FLASH 1)* ": FOR A=0 TO 10: FOR S=1 TO 7: 
S: NEXT A 
8062 CLS 
8065 IF Pi=P2 THEN LET AS="NADIE” 
8070 IF P1>P2 THEN LET AS=N$ 
8080 IF P2>P1 THEN LET As=MS 
8090 PRINT AT 5,55" ESTA GANANDO "jAT 7,55 "JUGADOR 1-"5P1jAT 
8095 PRINT AT 12,5;"UNA TECLA PARA EMPEZAR” 
8096 IF INKEYS="" THEN GO TO 8096: PAUSE 30 
8097 CLS : GO TO 5 
8100 RETURN 
9000 IF SCREENS (N,M)<>" ” THEN GO TO 8030 
9010 RETURN 
9500 IF SCREENS (X,Y)<>" " THEN GO TO 8060 
9510 RETURN 


JUEGOS DE ACCION 


BEEP .01,A+S: NEXT 


8,55; "JUGADOR 2-*"¡P2 


BEEP .01,A+S: NEXT 


8,55 "JUGADOR 2-"3P2 
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BOMBARDERO 

Llevas los mandos de un bombardero que ha sufrido una avería, por lo que debes 
aterrizar a toda costa. El lugar donde vas a aterrizar está lleno de minas, por 
lo que en primer lugar, deberás limpiarlo bombardeando las minas. Para ello, 
pulsa la "b". 


Entre las minas hay un personaje, el escalador loco, que hará todo lo posible 
para que te estrelles; ten cuidado con él. 


El avión baja sólo, así que únicamente debes preocuparte de bombardear. 


Los caracteres gráficos que hay en el listado están pulsando las letras de la 
figura siguiente en modo gráfico. 


SRAFICOS U-.D.GD. 


=A A=B He=CD V=E PETES X=0 f=k R=L 


REM XX BOMBARDERO XxX 

BORDER O: PAPER O: INK 7: CLS 

LET hi=0: LET BOMB=5000 

LEY MADCRASH=8000: LET ESCALADOR=3000: LET CRASH=34000 
CLS : LET DE=0: LET BU=1! LET Ll=6: LET SP=53: LET SC=0 
FLASH O: INK 2: PAPER 6 

LET LE=10 

FLASH 1 

10 PRINT "MIRROR BOM BAR DER OIR 

20 PRINT 

30 PRINT 

40 PRINT 

4 PAPER O: INK 7?! FLASH O 

60 PRINT *" Estas al mando de ura avioneta (CD) que necesita aterrizar ur- gent 


IN 0d AadN- 


emente. Pero el suelo esta lleno de escombros por eso lo tienes que limpiar 
antes de ba-jar.": REM CD EN MODO G 

653 PRINT " Para esto tienes que ir bombar-deandoio (tecla 'b'- (E), solo tien 
es ese cortro!). Un ultimo consejo :": REM E EN MODO G 

65 PPINT * - Ten cuidado con el escalador loco" 


80 PRINT M153"PULSA UNA TECLA FARA EMPEZAR” 
100 IF INKEY$="" THEN GO TO 100 

103 CLS 

105 RESTOPE 

110 FCP I=USR "A" TO USR "M"+7: REM "A” "M" EN MODO G 
120 READ A: POKE I,A 

170 NEXT 1 

140 DATA 255,129,165,129,129,165,129,255 
150 DATA 24,24,36,3€,66,66,129,129 

151 DATA 192,192,224,255,127,0,0,0 

152 DATA 0,120,252,255,255,32,112,32 

153 DATA 68,124,56,56,56,56,56,16 

154 DATA 0,10,1,24,15,103,6,78 

155 DATA 0,0,64,08,223,248,122,18 

156 DATA 23,67,15,7,38,68,9,0 

157 DATA 32,48,24,252,113,52,16,0 
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158 
159 
161 
162 
164 
163 
149 
170 
180 
185 
190 
200 
210 
220 
270 
230 
300 
310 
311 
312 
3139 
315 
316 
320 
345 
350 
400 
s00 
S10 
520 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3062 
3035 
3070 
30€0 
3090 
3100 
3110 
3111 
3120 
3130 
3140 
3150 
31€0 
3165 
3170 
3180 
3185 
3190 
3195 
3200 
3210 
3215 


3220 


PRINT INK 63 PAPER 03” 00 "¿SCjAT 0,183 "MAX-PUNT: — "¿HI 
PRINT AT 0,10-(BU>10)3 INMK 75; PAPER OjBU 

PRINT AT 0,0; 

FOR I=0 TO 6 STEP 3 

IF LI>=I THEN PRINT PAPER 03 INK 7;53"CD ";: REM CD EN MODO G 
MEXT I 

FOR I=1 TO LE 

LET A=INT (RND%28)+2 

LET B=INT (RMDX15)+€ 


IF SCREENS (21,4)="" THEN GO TO 170 
FOR J=21 TO B STEP -1 

PRINT AT 73,A;3"A”: REM A EN MODO G 
NEXT 1 

PRINT AT B,Aj3"B": REM "B”" EN MODO G 
NEXT 1 

FOR I=3 TO 21 


FOR J=0 TO 29 

PRINT AT 1,3;"CD": REM CD EN MODO G 

PAUSE SP 

IF DE>O THEN GO SUB 5060 

IF SCREENS (1,J+2)<>" " THEN GO TO CRASH 
IF DE>O THEN GO TO 320 


IF INKEYS="b" OR INXEY$="B" THEN IF I<2i THEN GO SUB BOMB 
IF PND<(1/300) THEN GO SUB ESCALADCR 

PRINT AT 1,J5" ” 

NEXT J 

NEXT 1 


PRINT AT 10,10;"BIEN HECHO": LET SP=SP-1: IF SP=0 THEN LET SP=1 
LET BU=BU+1: LET LE=LE+1 

LET DE=0: FOR K=1 TO 100: NEXT K: CLS : GO TO 158 

REM ESCALADOR 

DATA 90,90,60,24,24,60,36,102 

DATA 24,24,60,90,90,24,24,60 

DATA 12,13,9,31,28,20,34,33 

DATA 12,12,3,31,28,20,116,6 

LET MBX=INT (RNDX29) 

IF SCREENS (21,MBX)="" THEN GO TO 3050 

IF J+1=MBX OR J=MBX OR J-1=MBX THEN IF P-4<I THEN GO TO 3050 
FOR p=1 TO 3 

PRINT AT 21,MBX;"K": REM K EN MODO G 

BEEP .5,1 

PRINT AT 21,MBX;"J": REM J EN MODO G 

BEEP .5,1 

NEXT P 

PRINT AT 21,MBX3" " 


FOR p=21 TO O STEP -1 

IF SCPEENS (P,MBX+1)="" THEN NEXT P 
FOR Q=21 TO P+1 STEP -2 

PRINT AT P,MBX;"L": REM L EN MODO G 
PEEP .05,21-9 

PRINT AT Q,MBX;" * 

PRINT AT Q-1,MBX;"M": REM M EN MODO G 
BEEP .05,21-9 

PRINT AT Q-1,MBX3" " 

NEXT Q 

IF P<>21 THEN LET P=P+1 

FOR Q=P TO P-4 STEP -2 

PRINT AT 9,MPX;"L": REM L EN MODO G 
PRINT AT Q,MPX+1;3"A": REM A EN MODO G 
BEEP .05,21-Q 
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3225 PRINT AT 9,MBY3" * 

3230 PRINT AT Q-1,MBX;"L": REM L EN MCDC 6 
3240 PPINT AT O-1,MBX+1:3"A": REM A EN MODO G 
32350 BEE? ,03%,22-0 

3255 PRINT AT 0-1,MBX:" ” 

3260 MEXT Q 

3270 RETURN 

4000 FOR N=T TO 2! 

4005 PRINT AT N,J;3"CD": REM CD EN MODO G 
4019 BEEP .1,21-N 

4020 PRINT AT N,J3"  ” 

4030 MEXT y 

4049 PRINT AT N-2,J3"FG — ": REM FG EN MODO G 
9050 PRINT AT N-1,J3"HI": REM HI EN MCDO G 
4060 BEEP 2,-20 

4063 PRINT AT N-2,J;3" " 

406 PRINT AT N-1,J;” " 

4070 PRINT AT 0,LI;5 PAPER Oj INK 7;3* ” 

4080 LET LI=LI-3 

4090 IF LI=-3 THEN GO TC 6000 

24001 LET BU=BU+i 

4092 PRINT AT 0,10-(BU>10)3 INK 7; PAPER O;BU 
4100 ES TO 240 

4999 STOP 

5000 REM AXABOMBI% 

S010 LET L=J 

5020 LET DE=4 

5030 LET M=I+1 

5040 PRINT AT M,L;3"E": REM E EN MODO G 

5050 RETURN 

5060 PRINT AT M,L3" *: IF M=21 THEN LET DE=0: RETURN 
5063 LET M=M+1 

50970 IF SCREENS (M,L)="" THEN LET DE=DE-1: LET SC=SC+í0: PRINT AT 0,125 INK 75 
PAPER 0;scC 

5080 PRINT AT M,Lj3"E": REM E EN MODO G 

5085 IF DE=0 THEN PRINT AT M,L;5" ” 

3090 RETURN 

6000 PRINT AT 10,10;"GAME OVER” 

£010 FOR K=1 TO 100: NEXT kK 


6020 IF SC>HI THEN LET HI=SC 
$030 60 TQ 5 


(cp 6 Lp 91 160 MAX-PUNT: a 


La 


LEL> 
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FORMULA 1 


Vas a comenzar la carrera, en un gran premio de Formula I. Debes intentar ganar, 
pero para ello, deberás intentar no chocar contra las barreras ni pasar sobre 
las manchas de aceite. 


Manejas el coche con los cursores que están en las teclas 5, 6, 7, 8. 


Cuando quieras seguir en una dirección, no es preciso que mantengas oprimida la 
tecla de esa dirección. Utiliza las teclas únicamente para cambiar dirección. 


En la primera vuelta no hay manchas de aceite, pero cada vez que acabes una 
vuelta se añadirán manchas. 


Puedes cambiar el circuito modificando la subrutina que empieza en la sentencia 
900. 


Los modos gráficos están indicados al principio del listado. 


GRAFICOS U.D.G. 
H=A P=B N=C H=D 0=E 0=F 


1 REM %X* 500 MILLAS  % 

2 REM %DE INDIANAPOLISXX 

3 LET hs=0 

5 BORDER 6: PAPER é: INK 2: CLS 

10 RANDOMIZE 

15 FOR x=1 TO 6: READ ps 

20 FOR y=0 TO 7: READ p: POKE USR p$+y,p! NEXT y 

30 NEXT x: LET m$="8";: LET n$="B": REM B EN MODO G 

40 LET 3=C: LET lap=0: LET linea=3: LET column=7 

50 GS SUB 909: FRINT AT 2,73; INK O5"X";AT 4,7;"x" 

50 PRINT AT 0,55 INK O5"PUNTOS O"j3AT 0,18; ”"MAX-PUNT "*"3hs 

70 BEEP .2,0: BEEP .2,12: BEEF .2,0: BEEP .2,0: BEEP .8,-12 
200 IF INKEYS$="S" THEN LET m$="S”: LET n$="D": REM D EN MODO G 
110 IF INXEYS5="6" THEN LET m$="6": LET n$="C": REM C EN MODO G 
120 IF INKEYS=">?" THEN LET m$="7": LET n$="A": REM A EN MODO G 
130 IF INKEYS="8" THEN  LET m$="8": LET n$=”B": REM B EN MODO G 
1120 PRIMT AT l!lirea, column" ” 
2150 LET lirea=lirnea+(mé$="6")-(m$="7"): LET column=column+(mé$="8")-(m$="5") 
160 LET a=ATTR (linea,column): LET s$=SCREENS (linea,columr.): PRINT AT linea,co 
lumn5 INK 13n$: BEEP .01,5: 1F linez=3 AND column=7? AND m$="8" THEN GO SUB 800 
170 1F s$=” * THEN 650 YO 100 
500 PRINT AT lirvea,columnj INK 13 FLASH 1355 
505 FOR i=25 TO -25 STEP -12? REEP .02,i3 NEXT i 
F10 PAPER 71 INK 4 
520 1F ac>48 OR sé="%" THEM GO TO 550 
530 PRINT FLASH 15AT 10,6;"You hit an oil patch": GO TO 570 
3550 PRINT FLASH 1;AT 10,03" Te chocaste con la barrera  " 
570 PRINT FLASH 15AT 12,0;3"*"Pulsa una tecla para otro juego" 
575 IF INKEYS$<>"" THEN GO TO 575 
380 IF INKEY$="" THEN GO TO 580 
585 IF s3hs THEN LET hs=s 
590 RESTORE : GO TO 5 
800 FOR f=1 TO S: FOR i=0 TO 7: BORDER i: BEEP .02,iX*2: LET c=INT (RND%*30) +1 
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810 FOR íi=1 TO INT (RNDX3)+2 

2830 LET 1=INT (RNDX20)+1: LET c=INT (RMDX30)+i 

ea4n IF SCREENS (1,c)<>” * THEN GO TO 3530 

850 PRINT AT 1,23 INK O¡"E": NEXT i: REM E EN MODO G 

2650 LET lap=lap+1: LET s=s+lap: PRINT AT 0,93 INK O,s 

800 RETURN 

890 REM F EN MONC € 

200 PRINT AT 0,0; "FFEFFFEFREFFEFFFFFFFFEFFFFFFFFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
FFF* 


905 PRINT "FFFF FFFF" 
910 PRINT "FFF FFF" 
915 PRINT "FF FE" 


920 PRINT "FF. FFEFFFFFFFFFFFFFFFFFFF FF” 
925 PRINT "FF. FEFEFFFFFFFFFFFFFFFFFF FF" 


930 PPINT "FF  FFFFFFF FR" 
935 PRINT "FEF. FFFFF FEF" 
940 PRINT "FFFF  FFF FFFF" 


945 PRINT "FFFF. FFFR. FFFFFFFFFFFFFFFFFFF" 
950 PRINT "FFFF.  — FFF. FFEFFFFFFFFFFFFFFFF" 


955 PRINT "FFFF.  FFF FFFF" 
960 PRINT "FFF.  FFFFF FFF* 
955 PRINT "FF:  FFFFEFFF FF" 


970 PRINT "FF. FEFFFFFFFFFFFFFFFFFFFF FF" 
275 PRINT "FF. FEFFEFFFFFFFFFFFFFFFFF FF" 


980 PRINT "FF FF" 
985 PRINT "FFF FFF" 
990 PRINT "FFFF FFFF* 


995 PRINT AT 20,0; "FFFFFFFFFFFFFFFFEFFFEFFFEFFFFEFFFEFFFFFEFFFEFFFFFFFFFFFFFFFFFFFFFF 
FFFF" 
997 RETURN 
999 REM "A*","B","C","D","E","F" EN MODO G 
1000 DATA ”A”",BIN 11000,BIN 1011010,BIN 1111110,BIN 1011010,BIN 11000,BIN 100110 
O01,BIN 11111111,BIN 10011001 
1010 DATA "B",BIN 11100000,BIN 1001110,BIN 1000100,BIN 1111111,BIN 111111114,BIN 
1000100,BIN 1001110,BIN 11100000 
1020 DATA "C",BIN 10011001,BIN 11111111,BIN 10011001,BIN 11000,BIN 1011010,BIN 1 
111110,BIN 1011010,BIN 11000 
1030 DATA "D”,BIN 111,BIN 1110010,BIN 100010,BIN 11111111,BIN 111111114,BIN 10001 
O,BIN 1110010,BIN 111 
1040 DATA "E",BIN 111000,BIN 1111110,BIN 11111110,BIN 11111111,BIN 11111i14,BIN 1 
11110,BIN 111100,BIN 11000 
1050 DATA "F",O,BIN 111100,BIN 111i110,BIN 11111111,BIN 111111114,BIN 1111110,BIN 
111100,0 
1500 BORDER O: PAPER O: INK 7: CLS : BEEP .2,10 
1510 PRINT AT 0,11; INK 65"FORMULA I"jAT 0,11; OVER 13 *-----=---- poa 
1520 PRINT " Debes conducir el "3 INK 43 PAPER 1; FLASH 15"+ormula uno"; FLASH O 
3 PAPER 05 INK 75” (A) por el circuito, sin ch ocar-te con las barreras(F)": 
REM A F EN MODO G 
1550 PRINT *"Gobiernas el coche con el cursor (5..8)" 
1540 PRINT "Para sacar altas puntuaciones eneste juego se necesitan reflejosrapi 
dos ly mucha suerte).” : 
1569 PRINT AT 21,33 INMXK 43 FLASH 1;"PULSA UNA TECLA PARA EMPEZAR" 
1570 IF INKEYS="" THEN 59 TO 1570 
1520 IF INKEY$="" THEN GO TO 1580 
1590 RETURN 
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CIRCO 


Este es un juego de acción bastante entretenido. Consiste en hacer estallar unos 
globos que hay situados en la parte superior de la pantalla, mediante dos payasos 
de nuestro circo. Los payasos saltan sobre un trampolín situado en la parte 
inferior. 


Puedes controlar el trampolín con las teclas: 
5.- Ira la izquierda. 
8.- Ir a la derecha. 
Pulsando la tecla "1' el payaso del trampolín cambia de lado. 
El payaso que cae debe tocar su lado del trampolín para lanzar al otro hacia los 
globos. Procura aterrizar en la punta del trampolín; si caes en el centro, el 


otro payaso no subirá lo suficiente como para llegar a los globos. 


Ten cuidado, ya que sólo dispones de cinco payasos más el del trampolín. 


GRAFICOS U,.D.G. 


1 REM XX CIRCO XxX 
20 RANDOMIZE 
40 60 TO 80 
50 PRINT AT 21,SSj"A"jAT 21,S3+0D;"B": REM "A",”"B” EN MODO G 
60 PLOT SS*8-16,7X(AN=1): DRAW 38,7X-AN: RETURN 
80 OVER 1: TINK O: PAPER 7: BORDER 2: CLS 
e£5 GO SUB 900: 50 SUB 50 
90 GO SUB 50 
93 IF CA THEN LET AN=-AM: LET CA=0 
100 LET SS=SS4 (INKEVY$="8")-(INKEVS$="S5") 
103 LET SS=SS+(SS=9)- (S5=27) 
107 IF INKEY*+$="1" THEN LET AN=-AN: LET 0D=-0D 
110 GO SUB 50 
130 PRINT AT Y,X3"B": REM B EN MODO G 
140 LET X=X+A: LET Y=Y+D 
150 IF X=3 OR X=283 THEN LET A=-A: BEEP .Ol,1 
160 TF Y<HL THEN LET D=-D 
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165 LET NO=ATTR (Y,X) 

167 PRINT AT Y,X;3"B": REM B EN MODO G 

170 IF NO=5Sé THEN GO TO 210 

180 LET SC=SC+61-NO: BEEP .01,10 

185 PRINT AT Y,X3 OVER O;"B";AT 0,20;5SC: REM B EN MODO G 
190 LET D=-D 

1935 IF SC=260 THEN G9 TO 340 

200 EO TC 90 

210 IF Y<21 THEN GO TO 90 

220 LET DIS=X-SS: BEEP .01,5 

230 IF DIS<-2 CR DIS>2 OR SGN DIS<>-AN THEN GC TO 310 
250 LET HL=11-ABS DISXS 

260 LET X=SS5+0D 

270 LET CD=DIS: LET CA=1 

280 LET A=SGN OD: LET D=-1 

290 GO TO 90 

310 LET M=M+1 

320 BEEP .2,-10: BEEP .7,-20 

330 IF M<S THEN PRINT AT 21,3; OVER OjB$: GO SUB 950: GO SUB 50: GO TO 90 
3335 BEEP 1,-40: RUN 

340 PRINT AT 9,45 FLASH 1;"LO HICISTE!! PUNTUACION MAXIMA" 
343 BEEP 1,20: BEEP 2,30 

350 PAUSE 1: PAUSE 100 

360 RUN 


900 GO SUB 1100: GO SUB 1020 
902 PLOT 23,0: DRAW 0,167 


05 PLOT 232,0: DRAW 0,167 
910 FOR I=1 TC 4 
220 PRINT AT 1,33 INK Ij"CCCCCCCCCCCCCCCCCCCCOCCCCCC";5: REM C EN MODO G 
925 PRINT AT 15+1,1;"B": REM B EN MODO G 
930 NEXT 1 
940 PRINT AT 0,0;"Circo puntuacion: 0 Circo” 
943 LET sc=0: LET ss=16: LET m=0: DIM b$(26) 
2530 LET od=-2: LET ca=0: LET HL=0: LET X=3: LET Y=S5S+INT (RNDX4)3 LET A=1i; LET D 
=1: LET AN=-1 
9358 PRINT AT 15+M,1; OVER 03" * 
9357 FOR I=15+M TO Y STEP -1 
960 PRINT AT I1,1;"B": REM B EN MODO G 
970 PEEP .05,21-I 
980 PRINT AT 1,1;"B": REM B EN MODO G 
990 NEXT I 
1000 PRINT AT Y,X;"B": REM B EN MODO G 
1010 RETURN 
1020 RESTORE 1070 
1030 FOR 1=0 TO 23 
1040 READ N: POKE USR "A"+I,N 
1050 NEXT I 
1060 RETURN 
1070 DATA 0,0,0,0,16,56,124,254 
1080 DATA 56,5%6,16,234,16,40,40,108 
1090 DATA 0,60,110,176,62,28,8,4 
1100 PRINT * CIRCO: INSTRUCCIONES. " 
1110 PRINT "Elcircoha venido a la ciudad y la atraccion estrella son los payas 
Os. Dos payasos saltan desde un trampolin hasta unos globos en el aire." 
1115 PRINT "el payaso uecae no debe tocar el suelo ni el lado incorrecto del tra 
mpolin. Si cae cercade la mited del trampolin,el otro payaso no subira suficient 
e para tocar los globos. El circo tiene solo ó payasos por tanto tenga cuida 
dot" 
1120 PRINT "Ud. controla el trampolir: con las tecias S y 8. Puede cmbiar de lado 
el payaso pulsendo *1”. pulse *"N” para parar y cualquier otra tecla para empeza 
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THEN GO T29 1130 
INKEYS="N"” 


INVEVS="" 


1130. TF 


an 
—Í 


sT 


FEN 


T 


INKEY$="r:" OR 


1140 1F 


LITO CCLE 


1160 RETURN 
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MINA 


Con este juego quizá te desesperes un poco al principio, ya que debes intentar 


controlar dos objetos en la pantalla a la vez. Tu misión es limpiar la pantalla 


de minas. En primer lugar, deberás desactivarlas usando el inversor. A conti- 


nuación deberás recoger la mina con el transporte; al hacer esto la mina 


desaparecerá. 


Ten cuidado si pasas el inversor por una mina desactivada, ya que ésta se 


activará. 
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Para mover el inversor usa las teclas 5, 6, 7, 8 (cursores). Para mover el 
transporte, los cursores pulsando CAPS SHIFT a la vez. 


Si chocas con el transporte contra una mina activada, todo habrá acabado. !Ten 
cuidado! . 


Hay 40 minas y 5 velocidades de juego. La velocidad 5 es la más lenta y la 1 
la más dificil. Si pulsas el '6' interrumpirás el juego. 


Suerte y tómatelo con tranquilidad. 


GRAFICOS U.D.G. 


e=A H=5 


1 REM XX MINAS *xX 
30 GO SUB 600; 60 TO 520 
40 INK 5: PAPER 5: CLS : BORDER 5: INK O: LET Tg$=" ” 
50 LET S=0: LET X=16: LET Y=1 
60 LET CX=16: LET CY=19: LET CD=1 
£5 LET A=1: LET D=0: LET CA=1 
70 PLOT 4,4: DRAW 247,0 
20 DPAW 0,147: DRAW -247,0 
90 DRAYW 0,-167: INK 2 
100 FOR 1=1 TO 40 
110 LET TX=INT (RND*30)+1 
120 LET TY=INT (RNDX18)+2 
130 IF SCREENS (TX,TY)="" THEN GD TO 110 
140 PRINT AT TY,TX3"A": REM A EM MODO G 
150 NEXT 1 
155 INK 5 
150 LET I$=INKEYS 
170 1F 1$="" THEN GO TO 270 
130 IF 1I$="5" THEN LET A=-1: LET D=0: GO T9 270 
190 IF I$="8" THEN LET A=1: LET D=0: G9 TO 270 
200 IF IS="6" THEN LET A=0: LET D=1: GO TO 270 
210 IF 1%=">" THEN LET A=0: LET D=-i: GS TU 270 
220 LET I=CODE 18 
230 IF 1=8 THEN LET CA=-1: LET CD=G0: ES TO 270 
240 1F 1=9 THEN LET CA=1: LET CD=0: 60 TO 270 
250 1F 1-10 THEN  LET CA=0: LET CD=ií: GO 109 270 
250 1F I=11 THEN LET CA=0: LET CD=-1:; +0 TQ 270 
270 PRINT AT CY,CX5” "paT Y ,X; Th: LET TG=" * 
280 LET X=X+A: LET Y=Y+D 
290 LET CX:=CX+CA: LET CY=CY+CD 
300 LET N=ATTR (Y,X) 
310 LET CM=ATTR (CY,CX) 
720 PRINT  INK 75AT Y,X3"B"5AT CY,CX3"C": REM "B","C” EN MODO 6 
3253 BEEP SP,O 
330 IF N=40 OR CN=40 THEN GO TO 400 
340 IF N=42 THEN LET T%=CHR$ 164*CHR$ 1+"A”: REM A EN MODO G 
350 IF N=41 THEN LET Té$=CHP% 14+CHRs 2+”A": REM A EN MODO G 
360 TF CN=42 THEN CL TO 440 
370 IF CN=41 THEN LET S=S+1: IF S=40 THEN GO TO 470 
380 CO TO 160 
400 CLS : PRINT FLASH 13 INK O5AT 0,0;5"SE HA ESTRELLADO CONTRA LA BARRERA ELEC 
TRIFICADA." 
410 FOR I=1 TO 10: BEEP .02,-0 
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420 BEEP .02,5: NEXT 1 

430 50 TO 500 

440 CLS : PRINT FLASH 13 INK 2;AT 0,2;"SU TRANSFORTE HA GOLPEADO UNA MINA ACTI 
VA.” 

450 BEEP .2,-20: BEEP .5,-E 

460 GO TO 500 

470 PRINT AT 1,7; INK O5"LO LOGRC:: ” 

480 PEFP 1,7? 

500 INK O 

50 PRINT **”"HA ELIMINADO "5S;"MINAS" 

515 PAUSE 200: CLS 

520 PRINT "AAAAA DESACTIVE ESTA MINA AAAAA";* "SU TRABAJO ES LIBRAR LA PANTALLA 
DE MINAS."j”"ES UNA OPERACION DE DOS ETPAS, PRIMERO LA MINA DEBE SER DESACTIVA 
DA PASANDO EL INVEPSCR (BR) POR ENCIóA DE ELLA.": REM A y B EN MODO 6 

525 PRINT "EL CONTPOL DE ESTA OPERACION SE HACE CON LAS TECLAS 5 A 8."5” “LUE 
GO LA MINA DESACTIVADA DEBE SER CRGADA EN EL TRANSPORTE (C), CONTROLADO CO 
N ¡CAPS SHIFT¿+ 3 A 8.";3”"EL TRANSPORTE NO DEBE CHOCAR CON UNA MINA ACTIVA.": RE 
MC EN MCDO G 

530 PRINT *'"ENTRE NIVEL DE DIFICULTAD ¿-S (5=FACIL)";?*"PULSE 6 PARA PARAR. * 

540 LET I$=INKEYS 

550 IF 1$("1" OR 13>"£" THEN GO TC 540 

560 IF If="6" THEN STOP 

570 LET SP=VAL 1%/9 

=g0 EO TM 40 

£00 PEAD As: 1F Af="Z" THEN RETURN 

£10 FOR 1=0 TO 7 

620 READ N: POKE USR AB+I,N 

630 NEXT 1 

640 GO TO £00 

£50 DATA "A”,0,0,0,60,82,255,60,0 

£60 DATA "B",36,36,255,60,60,255,36,3£ 

670 DATA "C",0,0,248,254,254,255,255,34 

620 DATA *"Z” 
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CONDUCCION 3-D 
Vamos a ver tu pericia como conductor. 


Debes guiar tu vehículo sin salirte de la carretera. Para ello utiliza las teclas 
"5" y "8", Puedes variar también la velocidad usando la tecla "1". 


En la pantalla podrás leer la velocidad a la que circulas y la distancia 
recorrida. 


Te dejamos a tí el mejorar el programa cambiando la grafía de la línea 70 por 
otra cosa, como por ejemplo un parabrisas y un volante. 
1 REM %% CONDUCCION 3D %+* 

3 INK 7: BORDER O: PAPER O: CLS 

5 LET o-16: LET s=0 

10 LE” p¿=128 

12 LET is-"sesessesesesesssesesesesesessgaa88”: REM 8 en modo G 

15 LET iz4 

20 LET q=60 

25 LET d=0 

30 LET r=200 

35 LET p=p-(i1X2)X((INKEYS="8")-(INKEYS$="5")) 

40 LET p=p+d 

45 LET o=(25355-p)/8 

50 IF p>120 AND p<140 AND i<30 THEN LET i=i+1: LET d=1%*(INT (RNDX2)-INT (RND% 


55 CLS 

60 GO SUB 100 

65 IF ATTR (21,0)=6 OR ATTR (21,0+4)=6 THEN GO TO 150 

70 PRINT AT 21,0;"88888": REM 8 en modo G 

75 LET s=s+i/100: PRINT AT 3,0355" Kllcmetros  " 

20 PPINT AT 0,053 INK 2; BRIGHT 15ji$( TO i)j INK ójAT 1,0;"Velocidad "jiX*105" k 


90 69 TO 35 

100 PLOT 0,87: DRAW 255,0 

105 PLOT q,0 

1109 DRAY  INK 6;3p-q,87 

120 PLOT r,O 

130 DRAW INK 6jp-r,87 

140 RETURN 

150 PRINT AT 11,13 FLASH 1; BRIGHT 15 INK 25 PAPER 65;"Ha conducido “jsj" kilome 
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160 BORDER RNDX7 
1€5 BEEP .007,70+RNDFZ20 
180 IF PND“.96 THEN CEC TO 160 
185 PAUSE 200 
120 RUN 

Velocidad 208 km-h 

5.75 KIlometros 

i 

APISONADORA 


En este juego, tú eres el conductor de una apisonadora que se ha vuelto loca. 
A partir de ahora te vas a dedicar a aplastar a la gente que veas. 


Cuanta más gente aplastes, mayor puntuación obtendrás. 


10 
30 
40 
50 
70 
75 
80 
90 
100 


GRAFICOS U.D.Ge- 


=AC ==E (q=F Y'=6 
=BD 


REM %X APISONADORA 3 

RESTORE : GO SUB 500 

IF INXEYS$<>"" THEN 60 TO 40 

LET ME=0: LET MS=ME: PAPER 6: BORDER 6: CLS 
IF ME+MS=R THEN GC TO 450 

LET A=5: LET B=0 

LET C=21: LET M=0: LET D=INT (RND%*i1)+5 


PRINT INK 73 PAPER i;AT 0,0;"ESCAPADOS "“¿MEjAT 0,16; "APLASTADOS "5115 


PRINT — INK 1jAT A,B53" AC "3 INK OjAT A+1,B;"E"; 


INK i5AT At+t1,B+1;5"BD": 


REM 
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AC E PD EN MODO G 
110 PRINT  INK 2547 C-2,D3"F": REM F EN MODO G 
111 1F INT ((0/21-0/2 THEN” LET A$="G": PREM G EN MODO G 
17 1F 1NT /0/21<3C0/2 THEN. LET AS="H": REM H EN MODO G 
5 PRINT O INK 23AT C-1,D;3A$: INK O5AT C,D3"1": REM I EN MODQ G 
O 1% IMKEYS()"" THEN LET M=1 
O LET C=C-1: 1F C=3 THEM 60 TO 300 
N IF P=2P THEN GO TO 300 
O FOR Nz=1 TO 2: 1F (C-N=A OR C-N=A+1) AND (D=B+1 OR D=B+2) THEN GO TO 400: N 
EXT N 
170 IF M=1 THEN LET B=B+1 
200 GO TC 100 
300 REM %% HOMBRE ESCAPADO XxX 
310 LET ME=ME+1 
320 CLS : 60 TO 70 
4090 REM %%X HOMBRE APLASTADO XxX 
410 LET MS=MS+1 
420 PRINT  INK 1;AT A,P3" AC "3 INK OjAT A+1,B3"E"3 INK 15AT A+1,B+1;"BD": REM 
AC E BD EN MODO G 
430 PRINT FLASH 15AT A+2,B;"SPLAT!'": FOR N=C 73 100: NEXT N 
440 CLS : GO TO 70 
450 REM XX FINAL DEL JUEGA XxX 
455 PRINT  FLASE 1) ERICHT 13 PAPER 7; INK OjAT 9,10;"GAME OVER" 
460 PRINT AT 15,03"SE ACABARON LOS "3R;j” HOMBRES. ”3ME3" ESCAPADOS Y "¿MS;"” APLA 
ESTADOS" 
470 INPUT "OTRO JUEGO?"; As 
4390 IF A$="S" THEN RUN 
490 TMK O: PAPER 7: S5OPDER 7: CLS : GO TO 490 
500 PEM XX IMSTRUCCIONES *%*X 
510 PRINT "APISINADORA" 
570 PRINT ,,”" INTENTA APLASTAR TANTOS HOMBRES COMO PUEDAS, PULSA UNA TECLA PA-RA 
QUE TU APISONADORA SE MUEVA, PERO HAZLO EN EL MOMENTO JUSTO. " 
=30 INPUT "Mo DE HOMBRES?”"3R 
3540 INK O 
9000 REM XX UDG 
9010 FOR M=1 TO 9: READ As 
9020 FCPR N=0 TO 7: READ A: POKE USR A$+N,A: NEXT N: NEXT M 
9030 DATA "A",124,66,68,124,68,255,255,255 
9020 DATA "B",51,123,207,204,120,48,0,0 
9050 DATA "C",0,16,1!é6,1€,16,255,255,255 
9050 DATA "D",23£,7236,222,731,30,12,0,0 
9070 DATA "E",0,0,755,9,0,255,0,0 
9020 DATA *F",28.22,2,62,93,93,93,93 
9090 DATA "Q",20,22,16,16,48,0,0,0 
9100 DATA "H",20,52,4,4,6,0,0,0 
9110 DATA "1”,32,32,0,32,4,14,0,4 
9120 RETURN 


ESCAPADOS 2 APLASTADOS Y 


A 


“da 


pra 


34 


JUEGOS DE ACCION 


ENLADRILLAR 


El objetivo de este juego es defender una pared de una perversa bola que intenta 
destruirla. Para ello, contamos con una especie de cesta con la que tenemos que 
intentar que la bola no llegue a la pared. 


Cuando la bola llegue a la pared, la romperá casi por la mitad; debes tener 
cuidado pues cuando la bola rompe totalmente la pared, el juego se acaba. 


Para mover la cesta usa las teclas: 
8.- Para ir a la derecha. 
5.- Para ir a la izquierda. 


NOTA: Observa el modo de usar CHR$ 16 y CHR$ 1. Se usa así para combinar la 
información del color y la sombra en una cadena simple: (B$). Según esto, en la 
sentencia 170 no hay que usar INK 2. Este sistema de usar los colores es más 
rápido que mediante una sentencia PRINT, aunque no siempre se puede usar. 


GRAFICOS U.D.GQG. 


é=-n siih=5Cc0 N=E 


1 REM Y ENLADRILLAR %% 
3 GO SUB 600 
3 LET HS=0 
10 LET A=10 
15 LET SC=0 
20 LEY F=1 
30 LET Gz=1 
40 LET C=21 
50 LET D=31 
55 LET AS="E": REM E EN MODO 6 
60 FOR Z=1 TO 3 
720 LET AS=A$+AS 
22 NEXT 2 
75 PAPER 7: BRIGHT 1: CLS 
80 PRINT AT 0,03 INK 2;A$ 
85 PRINT AT 1,03 INK 2;A3 
90 PRINT AT 2,03 INK 2;A$ 
100 LET A=A+2X(INKEYS$="8" AND A<X2ó)-2X(INKEY$="5" AND A>U) 
110 PRINT AT 7,Aj INK 43" BCD ": REM BCD EN MODO G 
120 PRINT AT C,D3”" ”* 
130 IF C>20 THEN LET F=-F: BEEF .008,39 
140 IF D>30 OR D*12 THEN LET G=-G: BEEP .003,20 
150 LET C=C+F 
1£0 LET T=D+G 
170 PRINT AT C,D;BS 
120 TF C=1 THEN GO SUB 500 
185 1F C1>? THEN GO TO 200 
190 1F D=A4+2 OR D=A+3 CR D=A+9 THEN LET F=-F: BEEP .008,50 
200 IF C=0 THEN PRINT AT 10,113 FLASH 13 INK 23"GAME OVER";¿AT 12,8;"TU PUNTUAC 
TON: "3SC: GO TO 550 
210 LET SC=SC+27: GQ TC 109 
500 IF AS(D+2)=" " THEN RETURN 
510 LET As$(D+1)=" ” 
520 LET F=-F 
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330 
540 
s30 
560 
70 
seo 
3590 
600 
é£10 
£20 
£70 
$905 
700 
710 
220 
730 
740 
2750 
760 
270 
780 
790 
go00 
810 
220 
ea30 
gan 
250 
260 
e70 
820 
e90 
895 
900 


PPIMT AT 1,03 INK 254%: BEEP .008,15: BEEP .008,33 
SETURN 

IF SC>HS THEN LET HS=SC 

PRINT AT 1,7; FLASH 15 INK 3;"MAX. FUNT. ES "¿HS 

FOR G=1 70 50 STEP 2: BEFP .02,6: 5EEP .08,-G: NEXT G 
cLsS 

GO TO 10 

FOR A-0 10 7? 

READ 3 

POKE USR "A"+A,B 

NEXT A 

DATA 24,60,126,255,255,126,60,24 

DATA 1,31,127,255,255,253,255,248 

DATA 2%55,255,255,2%5,255,255,0,0 

DATA 122,243,254,2258,255,255,255,31 

FOR A=0 10 7 


READ B 
POKE USAR *B"+A,B 

NEXT A 

FOR A=0 TO 7 

READ € 

POKE USR "C"+A,C 

NEYT A 

FOR A=0 TO 7 

READ € 

POKE USP "D"+A,C 

NEXT A 

FOR A=0 TD 7 

READ € 

POKE USR "E"+A,C 

NEXT A 

LET BS=CHRS 16+CURS 1+"A": REM A EN MODO G 
PETURN 

DATA 254,254,254,0,239,239,239,0 
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Contactos*Cosmos*Alunizaje*Invasión. 


CONTACTO 


Este es un juego en tiempo real. Tu misión es aterrizar tu nave en el platillo 
volante que aparece en el fondo de la pantalla y que va moviéndose de izquierda 
a derecha constantemente. El combustible va gastándose continuamente; ten 
cuidado pues puedes quedarte sin combustible y ya no lograrás aterrizar. La 
puntuación depende de la cantidad de combustible que gastes, y del tiempo que 
tardes en aterrizar. Por un aterrizaje forzoso no lograrás ningún punto. 


Los caracteres gráficos se consiguen en modo gráfico con las letras que se 
indican a continuación. 


1 REM %%* ENCUENTROS XxX 
2 REM %% EN EL ESPACIO xk 
5 GO SUB 300 
10 LET Az=1 
20 LET F=170 
30 PRINT AT 19,293" “: LET B=7 
40 LET P1=0 
50 LET P2=0 
60 LET L=1 
70 LET P1=P1+(INKEYS="L")-(INKEYS="J") 
80 LET P2=P2+(INKEYS="Z")-(INKEYS="Q") 
90 PRINT AT 0,19; PAPER RNDX75 INK 9; FLASH 1;5"FUEL: "5 INVERSE 15F3" " 
110 LET B=B+P1 
120 LET A=A+P2+,1 
130 LET L=L+.5 
140 LET F=F-1 
150 IF F=0 THEN GO TO 230 
160 IF A>20 THEN GO TO 250 
170 IF L=30 THEN GO TO 30 
175 IF B>29 THEN LET B=29 
175 IF B<2 THEN LET B=2 
177 IF AC1 THEN LET A=1 
180 PRINT AT A,Bj"AB": BEEP .009,B: PRINT AT A,Bj" "¡AT 19,L-25)" CDE ": REM A, 
B,C,D,E EN MODO G 
190 IF A>17 THEN GOD TO 210 
195 BEEP .006,50-A 
200 60 TO 70 
210 IF ABS (B-L)<2 THEN GO TO 270 
220 GO TO 70 
230 PRINT AT 0,0; INK 23 FLASH 13" GASTASTE TODO EL COMBUSTIBLE" 
240 GO TO 440 
250 PRINT AT 0,0; INK 75 FLASH 15"TE CHOCASTE" 
260 60 TO 440 
270 PRINT AT 0,05 INK 25 FLASH 1;¡"ATERRIZASTE!"”*"TU PUNTUACION ES "5264%*(F-L) 
275 PRINT AT 19,L-33" CDDE "¡AT 18,L-13 INK 2; BRIGHT 1;"AB": REM A,B,C,D,E EN 
MODO G 
280 GO TO 440 
290 DATA "A”,0,1,1,7,1,3,7,12 
300 PAPER 1: BORDER 1: INK 7: CLS 
305 BRIGHT 1 
307 FOR G=1 TO 100: PLOT RNDX250,RNDX170: NEXT G 
308 PRINT AT 4,273" ” 
310 FOR Z=1 TO 6 
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320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
445 
430 
460 


READ Z$ 

FOR G=0 TO 7 

READ M 

POKE USR ZS+G,M 

NEXT GQ 

NEXT Z 

RETURN 

DATA "A”",0,1,1,7,1,3,7, 


12 


DATA "B",128,192,192,240,192,224,240,24 


DATA *C",0,0,0,0,0,3,15 
DATA "D",0,0,0,0,0,255, 


,63 
170,235 


DATA "E",0,0,0,0,0,192,240,252 
PRINT AT 10,10;”O0TRA VEZ (S/N)” 
IF INKEY$="" THEN GO TO 445 


IF IMKEYS="S" THEN RUN 
sTOP 


GRAFICOS U.D.G. 


A =AB _m=CDE 


JUEGOS DEL ESPACIO 


COSMOS 


El juego consiste en matar tantos pájaros galácticos como puedas, y en un tiempo 
limitado. 


Debes mover tu mirilla por el espacio buscando al pájaro enemigo para eliminarlo. 
Debes disparar rápidamente, pues si no, él cambiará de posición. 


En un minuto y medio debes matar tantos pájaros galácaticos como puedas. Pasado 
este tiempo, lanzarán un ataque final contra tí. 


El juego viene con instrucciones que puedes copiar si quieres. 


Las teclas para mover la mirilla son: 
R.- Para subir. 

V.- Para bajar. 

D.- Para ir a la derecha. 

G.- Para ir a la izquierda. 

F.- Para disparar. 


GRAFICOS U.D.G. 


A=ABCO ¿=D +=EX=F +=6 


PREM XX COSMOS %X 
RESTORE 6040: RESTORE 6090: 'RESTORE 6140: GO SUB 6000 
LET HS=0 
BORDER 1: PAPER 0: INK 7: CLS 
CLS : 60 TO 7000 
LET SC=0: LET SH=0: LET H=0: LET T=0: RANDOMIZE : LET Q6="/AR": LET Wb5="-X- 
": LET ES="RXA/": LET R$=" ” 

21 REM XEXVENTANA CON LOS DATOS 

23 INK 7: OVER 1: PLOT 0,0: DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175: 
PLOT 186,140: DRAW 68,0: PLOT 186,45: DRAW 69,0: PLOT 185,0: DRAW 0,175: INK 7: 
PRINT 47 5,24;"MAX-PUNT: "3 AT 7,243 "PUNTOS: "¿AT 9,24;"DISPAROS: "¡AT 11,245 "ACIERT 
OS: "¡AT 19,24; "TIEMPO: * 

25 INK 6: PRINT AT 1,24; FLASH 13" "sAT 2,24; FLASH 15"COSMOS"¡AT 3,24; F 
LASH 13 

30 LET X=INT (RNDX20)+2: LET Y=INT (RNDX19)+2: LET OX=X: LET OY=Y 

30 LET A=10: LET B=13: LET OA=A: LET OB=B 

50 50 SUB 4000: PLOT 0,0 

51 REM EXXXMOVIMIENTOS 

53 LET PS=INKEYS: LET A=A+(P$="Y" AND A<19)-(P$="R" AND A>3): LET B=B+(Ps$="G" 
AND B<21)-(P$="D" AND B>2) 

55 IF P$="F" THEN GO SUB 500 

60 LET O=INT (RNDX100): LET X=X+(0>70 AND X<21)-(0<30 AND »x>3) 

70 LET O=INT (RND*100): LET Y=Y+(0<30 AND Y<19)-(0>70 AND Y>3) 

80 LET PS$=INKEYS: LETCA=A+(PS="Y" AND A<i9)-(P$="R* AND A>3): LET B=B+(PS="G" 
AND BX21)-(Ps="D" AND B>2) 

90 OVER 0: PRINT AT 0Y,9X-13" ": PRINT AT DA-1,OB-1;R$jAT OA,OB-1;R$;AT OA+1 
¿OB-1;R$: OVER O 

91 IF T>100 THEN GO TO 2000 

92 PRINT  INK 45AT Y,X-1;"ABC"3 INK S; OVER 13AT A-1,B-150$;AT A,B-1IWSjAT A+1 
,D-1;E$: REM "ABC" EN MODO G 


JN nt 
O-03M0 
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95 LET OX=X: LET OY=Y: LET OA=A: LET OB=B 

114 PREM IBRHAPUNTOSIJ 

1135 OVER O 

116 PRINT AT 6,253HS;AT 8,25jSCj|AT 10,253SHj3AT 12,255H5AT 15,255 INT (T) 
117 REM AXXCRONOMETRANDO " 

118 LET T=T+1/3 

119 BEEP .01,25 


120 GO T9 51 
409 REM HEXXEL LASER 

500 INK 7: LET L=8X(21-A): LET J=(BX3)+4: LET K=185-(BX*8)-4: FOR Z=0 TO 1: OVER 
1: PLOT 185,0: DRAW -K,L: PLOT 0,0: DRAW J,L: FOR P=0 TO 3: BEEP .03,PX48: NEXT 
P: NEXT Z: OVER O: INK ? 

504 REM XXXTEST PARA EL ACIERTO 

505 IF A=Y AND B=X THEN GO SUB 1000 

510 LET SH=SH+1: RETURN 

990 REM XXXXACIERTOXAXX : 

1000 LET T=T+4: LET SH=SH+1: FOR G=0 TO 5: BEEP .05,6X8: BEEP .05,G: BRIGHT 1: P 
RINT AT 17,253 INK 25 FLASH 15” "AT 18,25; FLASH 13"<DADO>"jAT 19,255) FLAS 
H a13" ": NEXT G: LET H=H+1: LET SC=SC+10: GO TO 2000 
2000 REM BEF IN 
2001 IF SC>HS THEN LET HS=SC 
2005 PAPER O: BORDER 0: INK 7: CLS 

2007 PLOT 15,0: DRAW 0,160: DRAW 225,0: DRAW 0,-160: DRAW -225,0 
2010 PRINT AT 4,10) FLASH 13” "¿AT 5,103 FLASH 153">>>COSMOS<<<"jAT é, 
103 FLASH 13" a 
2020 PRINT AT 9,7; INK.35"SE ACABO EL TIEMPO" 
2050 PRINT AT 11,103 INK 53"MAX-PUNT:"jHSjAT 13,10; INK 6j"PUNTUACION: "¿SCjAT 15 
,105 "DISPAROS: "¡SH;jAT 17,105 "ACIERTOS: "5H 
2060 PRINT AT 19,63: INK 6;"PULSA"j INK 2;"ENTER”3 INK 6;"PARA EMPEZAR" 
2063 INPUT N$: BORDER 1 

2065 CLS 

2070 GO TO 20 

3999 STOP 

4000 OVER O: RANDOMIZE : FOR F=8 TO 177 STEP 2: PLOT INK RND*75F,INT (RND*155)+ 
8: NEXT F: INK 5 

4010 RETURN 
6000 RESTORE 6040 

6005 FOR F=0 TO > 

6010 READ S 

£020 POKE USR "A"+F,S: REM A EN MODO G 
6030 NEXT F 

6040 DATA 15,16,32,32,32,0,0,1 
6045 RESTORE 6090 
6050 FOR F=0 TO 7 
6060 READ S 
6070 POKE USR "B”"+F,S: REM B EN MODO G 
6080 NEXT F 

6090 DATA 24,1839,90,126,102,60,66,129 

6095 RESTORE 4140 

6100 FOR F=0 TO 72 
6110 READ S 

6120 POKE USR "C"+F,S: REM C EN MODO G 
6130 NEXT F 
6140 DATA 240,8,4,4,4,0,0,128 
6150 FOR F=0 TO 3: READ W$: FOR U=0 TO 7: READ S: POKE USR W$+U,S: NEXT Uz NEXT 
F 

6160 DATA "D",24,24,36,126,24,24,24,24: REM D EN MODO G 

6170 DATA "E”",24,24,24,24,126,36,24,24: REM E EN MODO G 

6180 DATA "F",0,8,48,223,223,48,8,0: REM F EN MODO G 

6190 DATA "G",0,16,12,251,251,12,16,0: REM G EN MODO G 


40 
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6999 RETURN 

7000 INK 7: PLOT 0,0: DRAW 0,175: DRAW 235,0: DRAW 0,-175: DRAW -255,0 

7003 INK 4: PRINT AT 1,103 FLASH 13" "¿AT 2,105 FLASH 13 "**XCOSMOSIH 
"¡AT 3,105 FLASH 13” *3 INK 7? 

7010 PRINT OVER 13 INK 253AT 5,1;” EL COBJETIVY DE ESTE JUEGO ES DESTRUIR TANTAS 
NAVES ENEMIGAS "3 INK 6: FLASH 1;j”(ABC)"5 INK 7; FLASH 0;* COMO PUEDAS. PARA E 
LLO CU-ENTAS CON TUS PODEROSOS LASERS .": REM "AEC" EN MODO G 

7020 PRINT : PRINT OVER 2;"LAS TECLAS SON: "5AT 12,113"D";AT 14,113"R"5AT 16,73" 
FDFG 6G”:AT 18,11:"V";AT 20,113"E": REM D E F GEN MODO G 

7030 PLOT 95,30%: PLOT 95,38: PLOT 96,40: PLOT 97,40: PLOT 95,940: DRAW 20,-20: PR 
INT AT 20,153 INK 2;"FUEGO” 

7040 PRINT Ri;5"PULSA ENTER PARA EMPEZAR": PAUSE O: INPUT LINE W$ 

7095 INK O: PLOT 0,0: DRAW 0,175 

7100 CLS 3 GO TO 20 

9000 PRINT AT Y,X-13"-Xx-" 

9010 LET X=INT (RNDX20)+2: LET Y=INT (RNDX19)+2: LET OxX=xX2 LET OY=Y 

9020 OVER O: PRINT AT 17,253" "3AT 18,253" "¡AT 19,255" "2 FOR F= 
8 TO 477 STEP 5: PLOT — INK (RNDX7)3F,INT (RNDX155)+8: NEXT F: INK 5: PLOT 0,0 
9030 GO TO 151 

9500 INPUT As 

9510 PRINT VAL ("BIN "+A5%) 

9220 GO TO 9500 

9999 FOR N=0 TO 255: INK (N/31.875): FLOT N,O: DRAW 0,175: NEXT N 


COSMOS 


TIEMPO 
2d 
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ALUNIZAJE 


Debes bajar a la superficie de la luna desde la nave nodriza y recoger a un 
naúfrago. Para ello tienes que ir sorteando los asteroides que se mueven por 
el espacio. Cuando llegues a la superficie de la luna, deberás recoger al 
naúfrago y regresar a la nave nodriza, pero esta vez, los asteroides no se 
moverán para facilitar tu misión. 


El programa viene con instrucciones, y las teclas para mover tu nave son: 


5.- Para ir a la izquierda. 
6.- Para ir a la derecha. 


GRAFICOS U.D.G. 


R=A Yv=B *X=C € =DEF h=G6 dAi=H lha=XI ai=) 


1 REM AALUNIZAJERE 


2 RESTORE : GO SUB 9990: LET at="B B B B B B 
B B B B B": LET b$=" B B B B B 
B B B B B B B B B B B B B": LET có=" B 
B B B B B B B B B B B B 
B B B": REM B EN MODO G 
3 LET HS=0 
4 LET S=0: LET L=3: LET TINTA=1 
S LET N=0: LET B=31: LET A=1: LET C=31 
6 LET X=0: LET U=X 
7 LET Y=INT (RNDF*31)+1: LET W=Y A 
9 BORDER 7: PAPER 7: CLS : INK O: INPUT "INSTRUCCIONES ?(S/N)"5Z%: IF Zhb="S" 


OR ZS="8" OR Z9="SI" THEN GO SUB 29000 
10 BORDER 2: PAPER 7: INK 4: CLS 
11 REM HASTA LA SENTENCIA 14 TODOS LOS PRINT EN MODO G: PRINT AT 18,0;"G 
H”" 

12 PRINT AT 19,0;"806 He" 

13 PRINT AT 20,0) "886 HG H88s” 

14 REM 3 EN MODO G, PULSANDO CS Y 3: PRINT AT 21,0;"888I33333"5j INK 15"88"5y 1 
NK 43"3J88889833JI333"3 INK 1;3"88"3 INK 4;"J8888"5R1j]"” PULSA UNA TECLA PARA EMPEZ 
AR" 

16 PAUSE 4E4 

17 PRINT AT 0,63” 

18 IF N=1 THEN 60 TO 210 

19 LET A=A+1 

20 LET C=C+2: LET B=B-1: IF C>=32 THEN LET C=0 

21 IF A=31 THEN LET Az=1 

22 IF B=0 THEN LET B=31 


23 PRINT  INK TINTA+4jAT 17,O¡BS(A+11 TO A+42) 
24 PRINT  INK TINTA5SAT S5,OjJAB(A TO A+31) 

25 PRINT INK TINTA+1;AT 8,O;BS(B TO B+31) 

26 PRINT  INK TINTA+25AT 11,05C8(C+4 TO C+35) 
27 PRINT  INK TINTA+35¡AT 14,0JAS(B+7 TO B+38) 
28 IF INKEYS="5" THEN LET Y=Y-1 

29 IF INKEYS="8" THEN LET Y=Y+1 

30 LET X=X+1 

31 IF SCREENS (X,Y)<>" " THEN GO TO 100 

32 PRINT AT V,W" ” 
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33 PRINT  INK O5AT X,Y5"A": LET V=X: LET W=Y: IF Y<=0 THEN GO TO 100: REM A E 
N MODO G 

34 IF Y>=31 THEN GO TO 100 

35 LET S=3+5 

36 IF X=20 THEN GO TO 200 

37 GO TO 19 

100 PRINT AT V,Wj" ": REM "RUTINA DE PERDIDA DE VIDA" 

101 LET L=L-1 

102 FOR Z=1 TO 10: PRINT  INK 25 PAPER 6;AT X,Y5"C": FOR M=1 TO 10: NEXT M: PRI 
NT — INK 63 PAPER 2;AT X,Y;"C": NEXT Z: PRINT AT X,Yj" ": REM C EN MODO G 

103 FOR Z=-15 TO -20 STEP -1: BEEP .65,Z: NEXT Z: BEEP 2,-21 

104 LET FUEL=30: LET B=31: LET A=2: LET C=31: LET X=0: LET Y=15 

105 IF L<=0 THEN GO TO 110 

106 GO TO 10 

110 FOR M=0 TO SO: NEXT M: FOR Z=6 TO O STEP -1: PRINT INK Z¡AT 10,12)"GAME OV 
ER": FOR M=0 TO 50: NEXT M: NEXT Z: FOR Z=5 TO -15 STEP -.5 

111 BEEP .05,Z: NEXT Z 

113 BEEP 2,-15: IF S>HS THEN LET HS=S 

115 PRINT  INK OjAT 11,12;3"PUNTOS: “¿SjAT 12,115"PUNT-MAX: "5HS 

116 INPUT "OTRO JUEGO (S/N)?";Z5$ 

117 IF Z$( TO 1)="S" THEN GO TO 3 

118 IF ZS( TO 1)="N" THEN STOP 

119 GO TO 116 

200 IF (Y=9) OR (Y=10) OR (Y=26) OR (Y=25) THEN GO TO 202 

201 GO TO 100 

202 BEEP .75,0: FOR Z=1 TO 10: BEEP .1,Z: NEXT Z: BEEP 1,11 

205 LET Yi=Y: LET VU=20: LET W=Y1: LET S=S+300 

206 LET N=1 

207 PAUSE 1900: GO TO 10 

210 PRIMT INK OjAT 20,Y15;"A": LET J=Y: LET K=0: FOR Z=1 TO 75: REM A EN.MODO G 

211 LET A=INT (RNDX16)+1 

212 LET B=INT (RND*32) 

213 LET C=INT (RNDXG6) 

214 BEEP .05,30: PRINT INK CjAT A,B;"B": REM B EN MODO G 

215 NEXT Z 

216 PRINT  INK O¡AT 0,05 "PULSA UNA TECLA PARA EMPEZAR" 

217 PAUSE 4E4 

218 LET X=20: LET Y=Y1: PRINT AT 0,05" il 

219 LET X=X-1: IF X=0 THEN GO TO 300 

220 IF Y<>O AND INKEYS="5" THEN LET Y=Y-1 

221 1F Y<>32 AND INKEYS$="2" THEN LET Y=Y+1 

222 PRINT AT Y,Wj" * 

223 IF X<>0 AND SCREENS (X,Y)<>" " THEN GO TO 100 

224 IF J<Y THEN LET J=J+1 


225 IF J>Y THEN LET J=J-1 

226 PRINT INK OjAT X,Y3"A": LET U=xX: LET W=Y: REM A EN MODO G 

227 PRINT INK 0O35AT K,J-23" DEF ": REM DEF EN MODO G 

228 LET S=S+10 

230 FOR Z=1 TO 10: NEXT Z: 69 TC 219 

300 IF Y=J] THEN <Q TO 302 

301 GC TC 100 

302 PRINT AT X+1,Y-15"” * ¿ INK OjAT Kk,Jj”"AF": FOR Z=i TO 2: BEEP ,25,0: BEEP 
.22,3: BEEP .1,3* BEE .1,3: BEEP .25,0: BEEP .23,2: NEXT 2: REM AF EN MODO 6 
303 BEEP .25,0: BEEP .25,3: BEEP .1,0 

304 LET 3=S+700 

3149 PAUSE 1000: LET HN=G 7 LET B=31: LET A=12 LET C=31: LET X=0: LET Y=INT (RNDX3 
4)+41?: 20 TC 10 
9000 BOPDER 7: PAPER 72 INK 0: CL5 
9001 PRINT AT 0,03” RESCATE LUNAR -” 
9002 FRINT : PRINT ” Ur astronauta esta naufrago en la superficie lunar." 
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9003 PRINT * Tienes el deber de aterrizar en””"uno de los dos monticulos de a-" 
9004 PPINT "tragque (mostrados en azul)y sal-varle.” 

2906 PRINT " Pero para hacerlo, antes debes” 

2008 PRINT "pasar for el cinturon de aste-"""roides" 

92010 PRINT ” Si te las arreglas para salvar" 

2012 PRINT "al astronauta, entonces tienes” 

9014 PRINT "que atravesar ctro cinturon de" 

2016 PRINT "meteoros, esta vez inmoviles." 

9018 FPINT "Los controles son!” 

2020 PRINT *?*"3S --- Ira la izquierda" 

9022 PPINT **"8 --- Ir a la derecha” 

2029 PRINT R13”*”Pulsa una tecla para empezar.” 

9028 PAUSE O 

9030 RETURN 

2990 FOR A=144 TO 153: FOR B=0 TO 7: READ C: POKE USR (CHR$ A)+B,C: NEXT B: NEXT 
A: RETURN 

9991 DATA 60,126,126,60,24,36,66,195 

9992 DATA 0,4,106,146,66,36,234,0 

9993 DATA 210,37,187,84,179,74,165,170 

9994 DATA 15,30,62,101,101,62,30,15 

99793 DATA 253,0,0,0,0,0,0,255 

99964 DATA 240,120,124,166,166,124,120,240 

9997 DATA 128,192,224,240,248,232,254,255 

9998 DATA 1,3,7,15,31,63,127,255,128,192,224,240,255,255,235,255 
9999 DATA 1,3,7,15,235,255,255,255 
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INVASION 


Este juego tiene instrucciones completas. Debes frenar la invasión de los 
marcianos. Estos intentarán saltar a la tierra desde unas toberas, dejándose 
caer; ahora bien, sólo saltarán cuando la tobera esté llena. Mientras tanto, 
están a tu merced y podrás aniquilarlos. 


Cuanto más cerca del suelo aniquiles a un marciano, mayor cantidad de puntos 
obtendrás. Si un marciano llega a tocar el suelo, se te descontarán 10 puntos. 


El programa incluye la lista de los diez mejores. El único requisito necesario 
para poder aparecer en ella es que tu puntuación no sea negativa. 


Las teclas para moverte son: 
5.- Para mover a la izquierda. 
6.- Para mover a la derecha. 
1.- Para disparar: 


En el juego puedes elegir entre cinco niveles. Cuanto más alto sea el nivel, 
menos tardarán los marcianos en llenar las toberas. 


NOTA: Observa que para conseguir que puedas moverte y disparar a la vez, se usa 
la instrucción IN en lugar de INKEY $; observa la línea 110. 


GRAFICOS U,.D.G. 


AÁ=2A Jl=-5 HE=C ¿=D A=E 


1 REM XXINVASIONI* 
2 RANDOMIZE 
5 GO SUB 9200: GO SUB 6006: GO TO 50 
8 REM 
9 REM IPEBRESCRIBE PUNTOS 
10 PRINT AT 0,05 INK 63 FLASH 13” "3SsCc;3" ": BEEP .0 
2,30: RETURN 
50 GO SUB 3000 
98 REM 
99 REM AXXXXBUCLE PRINCIPAL 
100 LET POS=INT (RNDX13)+1: IF S(POS)=S THEN GO TO 100 
110 FOR I=1 TO SPD+2: PRINT AT 21,653" ": LET G=G-(IN 63486=238 OR IN 63486=239) 
x(G>1)+(IN 61438<>2553)%*(G<30): PRINT AT 21,65 INK 2;3"A": REM A EN MODO G 
119 REM XBEN LA SIGUIENTE SENTENCIA "C" EN MODO G 
120 FOR J=1 TO S: 1F F1J3,1)>0 THEN PRINT AT F(J,1),F(J,2)3 INK J+2;"C"5AT F(J, 
1)-1,F(J3,2)5 INK 03* *": LET F(J,1)=F(3,1)+1: 1F F(J,1)=22 THEN LET F(J,1)=0: LE 
T NF=NF+1: BEEP .1,-20: PRINT AT 21,F(J3,2)-1j INK Jj FLASH 13"RAA”": LET N=ATTR ( 
21,6): LET SC=SC-10: GO SUB 10: FRINT AT 21,F(J,2)-1;" "; IF N>20 THEN 60 TO 
400 
130 IF PY=0 THEN GO TO 250 
140 PRINT AT BY,BX3" ": LET BY=BY-1: IF BYíó THEN LET BY=0: GO TO 300 
145 LET N=ATTR (BY,BX): IF M=0 THEN PRINT AT BY,Bx5 INK 23"D": GO TÚ 300: REM 
"D" EN MODO G 
150 IF N>2 AND N“8 THEN BEEP .1,5: LET SC=SC+BY: GO SUB 10: PRINT AT BY,BX;5" ” 
2 LET NF=NF+1:3 LET F(N-2,1)=0: LET BY=0: GO TG 300 
160 IF N=70 THEN BEEP .1,9: LET SC=SC+S: GO SUB 10: LET BY=0: PRINT AT 7-S(BX/ 
2-1),BX3" ": LET S(BX/2-1)=S(BX/2-1)-1: GO TO 300 
170 LET BY=0 


45 


JUEGOS DEL ESPACIO 


2530 IF IN é63486=238 OR IN 63486=254 THEN LET BY=20: LET Bx=G 

300 NEXT J: NEXT I 

310 LET S(POS)=S(POS)+1: PRINT AT 27-S(POS),POS*2+25 BRIGHT 13 INK 65"C": BEEP . 
1,15: IF S(POS)<5 OR NF=0 THEN GO TO 100: REM 3HHC EN MODO G . 
314 LET I=1 

315 IF F(1,1)>0 THEN LET I=I+1: GO TO 315 


320 BEEP .1,0: LET F(1,1)=8: LET F(1,2)=POS*2+2: LET NF=NF-1: PRINT AT 2,POS*2+ 
23" ": LET S(POS)=S(POS)-1: GO TO 100 

398 REM 

399 REM IBBBRHEGAME OVER 

400 DIM b$(704): PRINT AT 21,95 INK 25 PAPER 63 FLASH 13"_45 4__": FOR i=7 TO O 
STEP -1: BEEP .05,i: BORDER 1: PRINT AT 0,05 OVER 15 PAPER 15 INK 8;BS: NEXT 1: 
BEEP 2,-40: GO SUB 9000: GO TO 350: REM "43 4"EN MODO G (53 CON 5 Y CS) 

4998 REM 

4999 REM IIHXAXINICIALIZACION 

5000 INK O: PAPER O: BORDER O: CLS : INK 7: PRINT ,," B"5: BRIGHT 1: FOR I=i T 
C 13: PRINT — INK 4;3"EB"3: NEXT 1: PRINT : FOR I=1 TO 5: PRINT * "5: FOR J=1 TO 
14: PRINT " B”;: NEXT J: PRINT < NEXT 1: BRIGHT O: INK O: REM E B EN MODO G 
5010 DIM S(13): DIM F(9,2): LET SC=0: LET G=16: LET BXz=O0: LET BY=0: LET NF=5 
5020 PRINT R1j3" INVASION”; 

5030 PRIMT Ri3””" Los marcianos estan reunidos en”j 

3040 PRINT R1i3*"les trampillas de lanzamiento de"; 

5930 PRINT R13”"la nave dispuestos a realizar la"; 

5070 PRINT R13*"colocnizacion de la tierra" 

5030 PRINT Ri;*”” Cada vez que una de las trampi-" 

5085 PRINT Rij]"llas se llena de marcianos," 

5087 PRINT Rij"unc cae y se choca contra el suelo.” 

5089 PAUSE O: INPUT "PULSA ENTER PARA MAS DATOS"; LINE AS 

35090 PRINT R15”" Puedes destruir al marciano que"; 

5100 PRINT R15”*"cae en cualquier momento, para”j 

S110 PRINT R13]”"ello mueves la base usando las”5j 

5120 PRINT Rif*"teclas :"?5 


5130 PRINT R1;”3TAB 8; "*% 3--- Izquierda.””j 
5140 PRINT Ri5”* ¡TAB 83"%% 8--- Deracha."”; 
5150 PRINT R1j”5TAB 8;"%** 1--- Fuego.”"” 


5155 PAUSE O 

5160 PRINT  INK 75 FLASH 1;AT 0,05"ELIGE NIVEL DE VELOCIDAD(1--5)" 

5170 INPUT SPD 

5180 LET AS="MARCIANOS" 

5200 FOR i=1 TO 9: PRINT AT ¿4+2,05 INK 2ZjaS(I)5AT 1+2,31)A8(1): NEXT 1 

5210 RETURN 

5998 REM 

5999 REM 4% GRAFICOS DEFINIDOS 

£000 RESTORE 6010: FOR I=0 TO 39: READ N: POKE USR "A"+I,N: NEXT I: RETURN : REM 
A EN MODO G 

6010 DATA 24,24,24,60,60,255,255,255 

6020 DATA 60,60,60,60,60,60,60,255 

6030 DATA 0,231,66,126,82,255,235,102 

£040 DATA 48,24,12,24,48,24,12,24 

6050 DATA 255,255,24,60,102,195,195,0 

7000 PRINT  INK 73IN 63486, IN 61438: GO TO 7000 

2998 REM 

8999 REM KXXIHX LOS 10 MEJORES 

9070 LET I=10 

9080 IF 1>0 THEN 1F Z(1,1)<SC THEN LET Z(1+1,1)=Z(1,1): LET Z(1+1,2)=Z(1,2): L 

ET ZS(1+1)=Z9(1): LET I=I-1: GO TO 9080 

9090 LET Z(I+1,1)=SC: LET Z(1+1,2)=SPD: IF I<10 THEN INPUT "AHORA ESTAS ENTRE L 

OS MEJORES ,TECLEA TUS INICIALES”;Z$(1+1) 

9095 PRINT INK 3;"No.PUNT: JUGADOR NIVEL” 

9100 FOR J=1 TO 10: PRINT JjTAB 2;"="3 INK 75Z(J,1)5TAB 10) INK 45Z8(J)5 INK 752 
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(3,2): NEXT J 
9110 IF I<X10 THEN DIM B$(32): PRINT AT 1+8,0; OVER 15 FLASH 1;BS 
9120 PAUSE 100 

9190 INPUT "OTRO JUEGO? (S/N) "51%: IF I$="N" OR I$="n" THEN STOP 
9200 DIM Z(11,2): DIM Z6(11,10): RETURN 


MOZDHODDI 


i 
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Piedra papel tijeras*15 Monedas*Canódromo*12 Monedas*Ruleta rusa*Ahorcado. 


PIEDRA, PAPEL, TIJERAS 


Este juego está recomendado para los más pequeños. 


Debes elegir rápidamente piedra, papel o tijeras. Antes, el ordenador te habrá 
preguntado cuantas partidas quieres jugar. 


Para contestar debes introducir: 
O0.- Para piedra 
1.- Para papel 
2.- Para tijeras 


A ver si eres capaz de vencer al ordenador. 


¡SUERTE ! 


1 REM XX PIEDRA. PAPEL. XX 


2 REM %x TIJERAS. He 
7 PORDER 2 
10 LET z=0: LET h=0: LET t=0 
15 PRINT — INK 33AT 3,143"RSP"; INK 15AT 12,1;"EL JUEGO DE LA PIEDRA, TIJERAS", 
"Y PAPEL” 
20 PRINT AT 18,1;"PULSA UNA TECLA PARA CONTINUAR": PAUSE O: CLS 
25 INPUT "CUANTAS PARTIDAS QUIERES JUGAR? *;6G 
30 FOR M=1 TO G: CLS 
353 LET AeINT (RND3) 
40 PRINT AT 3,53;"PARTIDA No.-"jn: PRINT TAB 2;"PIEDRA=0:PAPEL=1:TIJERAS=2" 
45 "INPUT  INK 73"QUE ELIGES "3C: CLS 
47 1F C>2 THEN GO TO 130 
50 1F C=A THEN GO TO éS 
55 IF CX<A THEN GO TO 20 
60 IF C>A THEN GO TO 75 
65 BEEP .1,0: PRINT AT 11,115"IGUALES*": LET T=T+1: GO TO 80 
70 BEEP .3,30: PRINT AT 11,12;"YO GANO": LET Z=Z+1: GO TO 80 
75 BEEP .5,-10: PRINT AT 11,12;3"TU GANAS": LET H=H+1 
80 PAUSE 30: NEXT N 
82 CLS 
85 BEEP .5,15: PRINT AT 5,€;"PUNT. FINAL": PRINT 
87 INK 3 
0 PRINT TAB 3; "SPECTRUM- *"5Z3" PARTIDAS” 
93 PRINT TAB 3;"HUMANO  - "*"3H3” PARTIDAS" 
100 PRINT TAB 3;"EMPATES - "3T3j" PARTIDAS” 
102 INK O: PRINT 
105 IF Z>H THEN PRINT TAB 5]"GANO EL ORDENADOR" 
110 IF Z<H THEN PRINT TAB 5;"GANO EL HUMANO” 
112 IF Z=H THEN PRINT TAB 5;"EMPATE" 
115 INPUT "QUIERES OTRA PARTIDA? "As: CLS 
120 IF A$="SI" OR A$="si" OR A$="S" OR A$="s" THEN GO TO 10 
125 PRINT INK 15"MUY BIEN "5: GO TO 125 
130 PRINT "APRENDETE LAS REGLAS" 
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15 MONEDAS 


Este juego es un juego de suerte, astucia y habilidad. 


Realmente se juega en algunos casinos chinos, una variante de él algo más 
compleja. Consiste en coger 1,.2 Ó 3 monedas cada jugador alternativamente. 
Pierde aquel que se quede con la última moneda. 


Existe una combinación para nunca perder, lo que podríamos llamar una estrategia 
ganadora ¿Te atreves a intentar descubrirla?. 


REM XX 13 MONEDAS JB 

GO SUB 850 

cLs 

PRINT “JUEGO DE LAS 15 MONEDAS" 

LET S=5 

GO SUB 860 

PRINT "HAY 15 MONEDAS, SE PUEDEN IR QUITANDO 1, 2 O 3” 
PRINT "PIERDE EL QUE SE QUEDE CON LA ULTIMA" 
GO SUB 860 

PRINT "COMO QUIERES JUGAR?" 

PRINT "EMPIEZO YO: FACIL (1) DIFICIL (2)” 
PRINT "EMPIEZAS TU: FACIL (3) DIFICIL (4) * 
LET Y=153 

INPUT B 

GO SUB 850 

LET S=4 

GO SUB 2700 

IF B=i THEN GO TO 440 

IF B=2 THEN GO TO 260 

IF B=3 THEN GO TO 400 

IF B=4 THEN GO TO 190 

PRINT "CUANTAS TOMAS ?* 

INPUT B 

GO SUB 860 

LET YmY-B 

GO SUB 700 

IF Y=wi THEN GO TO 920 

LET X=0 

FOR N=1 TO 3 

LET C=Y-N 

IF C<>5 AND C<>9 AND C<>13 THEN GO TO 310 
LET X=N 

NEXT N 

IF X<>0 THEN GO TO 340 

GO SUB 800 

PRINT "YO QUITO "5X 

GO SUB 860 

LET Y=Y-X 

GO SUB 700 

IF Y=1 THEN GO TO 900 

GO TO 190 

PRINT "CUANTAS TOMAS?" 

INPUT B 

GO SUB 860 

LET Y=Y-B 
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440 GO SUB 700 

450 IF Y=1 THEN GO TO 920 
460 GO SUB 800 

470 LET YmY-xX 

480 PRINT "YO QUITO "5xX 

490 GO SUB 860 

500 GO SUB 700 

510 IF Y=1 THEN GO TO 900 
520 G0 TO 400 

700 FOR N=1 TO Y 

710 PRINT * 0”5 

720 NEXT N 

730 FOR Nz=Y TO 14 

740 PRINT ” ” 

750 NEXT N 

760 PRINT 

770 GO SUB 860 

780 RETURN 

800 LET X=INT (RNDF3)+1 

810 IF Y<S THEN LET X=Y-1 
820 RETURN 

850 LET S=24 

860 FOR N=1 TO 3 

870 PRINT 

880 NEXT N 

890 RETURN 

900 PRINT "LO SIENTO. SOLO TE QUEDA UNA. PIERDES” 
910 GO TO 930 

920 PRINT "YO PIERDO. ENHORABUENA" 
930 PRINT "REPETIMOS? (S/N)": INPUT DS 
940 IF D6="S" THEN GO TO 10 
950 STOP 


CANODROMO 


Con este juego podrás pasar un día en el canódromo. Piénsate tus apuestas, 
elige y suerte, ya que puedes hacerte millonario. 


Sigue las instrucciones para hacer las apuestas, marca el número de vueltas, y 
la correr!. 


GRAFICOS U.D.G. 


rH=A <=B 


1 REM %% CARRERAS GALGOS 3% 

3 G0 SUB 2010 

4 GO SUB 2000 

5 LET PERRO=-1: LET FLASH=0 

7 LET FL=0 

10 LET Wei: LET X=1: LET Y=1: LET Z=1 

12 DIM L(4): FOR N=1 TO 4: LET L(N)=1: NEXT N 
30 BORDER O: GO SUB 100 
35 PRINT AT 2,75 PAPER 65 INK 13 FLASH 15 BRIGHT 15"HAGAN SUS. APUESTAS! !": INP 
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UT "CUANTAS VUELTAS? "TS 


36 FOR N=1 TO LEN TS: IF CODE T*$(N)<48 OR CODE T$>57 THEN GO TO 35 
38 NEXT N: LET TOT=VAL TS 


40 PRINT AT 2,753 PAPER 43" . 
41 PAUSE 100: BEEP .5,0: PRINT AT 2,7; PAPER é€j INK 15 BRIGHT 15 FLASH 15 "PRE 
PARADOS*": PAUSE 100: PRINT AT 2,7; PAPER 43" ": PAUSE 100 


43 BEEP .5,12: PRINT AT 2,73 PAPER é; FLASH 13 BRIGHT 13 INK 15"""<%-% YA %-%> 


50 PAUSE 10: LET FLASH=1: GO SUB 100: GO TO 400 


110 PRINT AT 7,03 INK 13"1";5AT 9,03 INK 45"2"5AT 11,03 INK 25"3"5AT 13,0) INK 3 
ja” 


112 FOR N=0 TO 4: PRINT AT N,Oj PAPER 45” ": NEX 
TN: FOR N=16 TO 21: PRINT AT N,Oj PAPER 43" "3 N 
EXT N 


114 PRINT AT 17,03 PAPER 63 INK 13"VUELTAS" 

115 PRINT AT 7,13 INK 13"A"jAT 9,13 INK 4;3"A"5AT 11,15 INK 2;"A"5AT 13,15 INK 3 
"A": REM A EN MODO G 

120 GO SUB 300 

122 GO SUB 320 

130 GO SUB 330 

135 RETURN 

300 PLOT OVER 1;18,56: DRAW OVER 150,71: RETURN 

310 RETURN 

320 PLOT OVER 1;250,56: DRAW OVER 150,71: RETURN 

330 PRINT AT 5,03 FLASH FLASH; INK 6j PAPER 5;"6666666665666666666666668666666666 
”": REM 6 EN MODO G 

333 PRINT AT 13,0; FLASH FLASHj3 INK 3; PAPER 6;"6666666666666666666666666666666 
6”: REM 6 EN MODO G 

340 RETURN 

350 PRINT AT 2,143 PAPER 63 INK 15 BRIGHT 15 FLASH 15"ULTIMA VUELTA”: RETURN 
399 REM 

400 LET PERRO=PERRO*-1: IF PERRO=-1 THEN LET D$="A": REM A EN MODO G 

405 IF PERRO=1 THEN LET D$="B": REM BE EN MODO G 

406 REM 

410 PRINT AT 7,W;3" ": LET R=RNDX10: IF R>7 THEN LET W=W+1 

414 IF W>30 THEN LET L(1)=L(1)+1 

413 IF W>30 THEN LET W=1 

416 LET T=W: IF TOT=L/1) THEN GO SUB 1000 

420 PRINT AT 2,W3 INK 13Ds8 

421 REM 

425 PRINT AT 9,X3" "2: LET R=RNDX*10: IF R>7 THEN LET X=X+1 

429 IF X>30 THEN LET L(2)=L (2)+1 

430 IF X>30 THEN LET X=1 

431 LET T=Xx: IF TOT=L(2) THEN GO SUB 1000 

435 PRINT AT 9,X3 INK 43DS 

436 REM 

440 PRINT AT 11,Y;3" ": LET R=RNDX10: 1F R>7 THEN LET Y=Y+1 

444 IF Y>30 THEN LET L(3)=L(3)+1 

443 IF Y>30 THEN LET Y=1 

446 LET T=Y: IF TOT=L(3) THEN GO SUB 1000 

450 PRINT AT 11,Yj INK 25D% 

431 REM 

4355 PRINT AT 13,23" ": LET R=RNDX10: 1F R>7 THEN LET Z=Z+1 

459 IF Z>30 THEN LET L(4)=L (9)+1 

460 1F Z>30 THEN LET Z=1 

461 LET T=2: IF TOT=L(4) THEN (GO SUB 1000 

465 PRINT AT 13%,Z3 INK 3;3DS 

4£6 REM 

470 PRINT AT 18,03 PAPER 75 INK 15"1 EN "3L(1)5AT 19,05 INk 45"2 EN "¿L(2)AT 2 
0,05 INK 2;3"3 EN "5L(3);AT 21,05 INK 3;"4 EN "5L (4) 
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480 G0 TO 400 
1000 LET FL=FL+1: IF Fl=i THEN GO SUB 320 

1005 IF FL=1 THEN GO SUB 3:0 

1007 IF FL=1 THEN GN SUB 350 

1010 IF T=30 THEN 60 TO 1020 

1015 RETURN 

1020 LET FLASH=0: GO SUB 330 

1022 60 SUB 350 

1025 LET W=W+L (1): LET X=X+L (2): LET Y=Y+L(3): LET Z=Z+L(4) 

1030 LET TOT=TOT+30 

1035 IF W=TOT THEN LET END=1 

1040 1F X=TOT THEN LET EMD=2 

1045 IF Y=TOT THEN LET END=3 

1050 IF Z=TOT THEN LET END=4 

1055 PRINT AT 2,5; PAPER 75 INK 13 FLASH 1; BRIGHT 1;"EL GANADOR ES Ei No. "jEND 
1060 BORDER 0: FOR N=1 TO 12: BEEP .1,N: MEXT N 

1070 FOR K=1 TO 2: FOR N=0 TC 7: BORDER N: PAUSE 10: NEXT N: NEXT k 

1075 RUN 5 

2000 BORDER 6: PAPER 6: INK 1: CLS : PRINT AT 4,13”""PASA UN DIA EN LAS CARRERAS 
punn.zrrn ""TEN UN EMOCIONANTE DIA!:” 

2005 PAUSE 400: RUN 5 

2010 DATA 3,3,124,55,68,130,0,0,3,30,124,56,40,16,0,0,0,112,248,248,248,112,32,3 
2:32,32,32,32,32,32,32,32 

2015 RESTORE 2010: FOR N=USR "A” TO USR "C": READ A: POKE N,A: NEXT N: RETURN 


ÚLTIMA VUELTA 


1 ES 
2 ES 

3 A 

d Es 

E 
VUELTAS 

1 EN 2 

2 EN 2 

3 EN 2 

4 EN 2 
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12 MONEDAS 
Este es un juego de astucia. 


Tienes doce monedas, de las cuales una de ellas es falsa. La moneda falsa pesa 
distinto que las otras once, más o menos. 


En tres pesadas debes averiguar cual es la moneda falsa. 


PIENSA. No es imposible de conseguir. 


1 REM XX 12 MONEDAS IRNRRRRE: 
20 LET D=0: LET E=0: LET F=0 
30 LET 0=0: LET H=0: LET I=0 
40 CLS 
50 PRINT "TIENE UD. DOCE MONEDAS APARENTEMENTE IGUALES. UNA DE ELLAS ES FALS Y 
SU PESO ES DIFERENTE. TIENE TRES PESADAS PARA ADIVINAR LA FALSA. ” 
60 DIM A(12) 
70 RANDOMIZE 
80 LET U=INT (RND*100)+1 
90 FOR N=1 TO 12 
100 LET A(N)=U 
110 NEXT N 
120 RANDOMIZE 
130 LET X=INT (RND*2) 
140 LET Y=INT (RND11)+1 
150 IF X=0 THEN LET A(Y)=U-1 
160 IF X=1 THEN LET A(Y)=U+1 
170 INPUT "DE CUANTAS MONEDAS SE COMPONEN LOS MONTONES QUE VA A PESAR?:"53Ww 
180 PRINT "CUALES DE ELLAS QUTERE PONER EN EL PRIMER MONTON ?:" 
190 FOR X=i TO W 
200 INPUT R 
210 IF R>12 THEN PRINT "ERROR. TECLEE UN NUM. MENOR QUE 13.”: GO TO 200 
220 LET D=D+A(R) 
230 PRINT "MONEDA N.:2"$X53"="pR 
240 NEXT X 
250 PRINT "CUALES EN EL SEGUNDO MONTON ?:" 
260 FOR X=1 TO W 
270 INPUT S 
280 IF S>12 THEN PRINT "ERROR. TECLEE UN NUM. MENOR QUE 13.": GO TO 270 
290 LET E=E+A (8) 
300 PRINT "MONEDA N.:"3X3"="53S 
310 NEXT *X 
320 PRINT : PRINT 
330 PRINT "PESO DEL PRIMER GRUPO="3D 
340 PRINT "PESO DEL SEGUNDO GRUPO="5;E 
350 PRINT : PRINT 
360 PRINT "SEGUNDA PESADA. ” 
370 PRINT "CUANTAS MONEDAS QUIERE PESAR EN CADA MONTON ?:*" 
380 INPUT YW 
390 PRINT "CUALES DE ELLAS QUIERE PONER EN EL PRIMER MONTON ?:" 
400 FOR X=1 TO W 
410 INPUT R 
420 IF R>12 THEN PRINT "ERROR. TECLEE UN NUM. MENOR QUE 13.": GO TO 410 
430 LET F=F+A(R) 
440 PRINT "MONEDA N.:2"5X53"="3R 
430 NEXT X 
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PRINT "CUALES EN EL SEGUNDO MONTON ?:" 

FOR X=1 TO W 

INPUT S 

IF S>12 THEN PRINT "ERROR. TECLEE UN NUM. MENOR 
LET G=G+A(S) 

PRINT "MONEDA N.:"5X3"="3S 

NEXT X 

PRINT "PESO DEL TERCER GRUPO="3F 


'" PRINT "PESO DEL CUARTO GRUPO="3G 


PRINT : PRINT 

PRINT "TERCERA PESADA. " 

PRINT "DE CUANTAS MONEDAS SE COMPONEN LOS GRUPOS 
INPUT W 

PRINT "CUALES DE ELLAS QUIERE PONER EN EL PRIMER 
FOR X=i TO W 

INPUT R 

IF R>12 THEN PRINT "ERROR. TECLEE UN NUM. MENOR 
LET H=H+A(R) 

PRINT "MONEDA N.:"5X5"="5¿R 

NEXT X 

PRINT "CUALES EN EL SEGUNDO MONTON ?:" 

FOR X=1 TO W 

INPUT S 

IF S>12 THEN PRINT "ERROR. TECLEE UN NUM. MENOR 
LET I=1+A(8) 

PRINT "MONEDA N.:"3X3"="5S 

NEXT X 

PRINT : PRINT 

PRINT "PESO DEL QUINTO GRUPO="5H 

PRINT "PESO DEL SEXTO GRUPC="3p¿1 

PRINT : PRINT 

PRINT "UD. YA DEBE CONOCER EL NUMERO DE LA MONED 
PRINT : PRINT : PRINT 

PRINT "TECLEE EL NUMERO QUE CONSIDERE ACERTADO: ” 
INPUT "NUMERO="3Z 

IF A(Z2)=U THEN PRINT "FALSO.ERA LA: "jY 


QUE 13.": GO TO 


QUE VA A PESAR." 


MONTON ?:” 


QUE 13.": GO TO 


QUE 13.": 60 TO 


FALSA." 


IF A(Z)<>U THEN PRINT "CORRECTO. LO HA ADIVINADO. ” 


INPUT "VOLVEMOS A JUGAR?" 3C% 
IF C$="S" THEN GO TO 10 
sTIP 


RULETA RUSA 


Este juego 


te dice la causa por la que te quieres suicidar. El ordenador tiene varios 
escenarios de los que elige aleatoriamente uno. 


Después de 


la que acabe contigo. 


Una vez que hayas elegido, sigue las instrucciones y no te eches atrás. 


1 REM %% RULETA RUSA xk 
7 BORDER 4 
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480 


610 


680 


es muy entretenido y con él podrás reirte. Al empezar, el ordenador 


la introducción, el ordenador eligirá una pistola; esta pistola será 
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10 PRINT AT 3,2;"Este es un juego de la ruleta rusa con una eleccion.” 
12 LET n=0 
15 GO SUB 140 
20 PRINT AT 3,03"Tu historia esmuy triste...": PRINT : PRINT 
25 LET s=INT (RNDS) 
30 IF s=0 THEN PRINT *...tu esposa se fue con los chicos al Camerun y te pide 
dinero.” 
35 IF s=1 THEN PRINT "...perdiste el trabajo, pues fuiste reemplazado por un 
ordenador.” 
40 IF s=2 THEN PRINT "...tu esposa se acaba de chocar con el coche nuevo.” 
45 IF s=3 THEN PRINT *...se quemo la casa pero se salvo tu suegra.” 
50 IF s=4 THEN PRINT "...tu viaje a Australia se ha postpuesto porque tu muje 
r se ha comprado un modelito.” 
55 PRINT : PRINT : PRINT TAB 43"-y has decidido acabar con tu sufrimiento en e 
ste mundo.”: GO SUB 140: CLS 
60 PRINT AT 7,2j"Tienes una pistola -": PRINT 
65 LET g=INT (RND*3) 
70 IF 9=0 THEN PRINT TAB 4;" Walter PPK." 
75 IF g=1 THEN PRINT TAB 43" Pietro beretta .32" 
80 IF g=2 THEN PRINT TAB 4;"Tokarev .38" 
85 PRINT : PRINT : PRINT TAB 3;”"- y vas a usarla, "¡TAB 103" verdad ?": GO SUB 
140 
90 PRINT AT 3,3;"TECLA *1” Disparar”";AT 5,3]"TECLA *'2* Arrepentirse" 
95 PRINT AT 15,0;”"<RECUERDA QUE SI TE ARREPIENTES TE QUEDARAS EN ESTE PERRO MU 
NDO>" 
100 PAUSE O 
102 CLS 
105 IF INKEY$="1" THEN GO TO 115 
106 IF INKEYS="2" THEN GO TO 110 
108 GO TO 90 
110 PRINT AT 1,113"GALLINA": PAUSE 20: CLS : PAUSE 20: GO TO 110 
115 LET N=N+1: 1F N=9 THEN GO TO 135 
120 IF INT (RND*6)=3 THEN GO TO 130 
125 BEEP .1,-30: PRINT INK 3jAT 11,115"- CLICCK -”": GO TO 100 
130 BEEP .5,25: PRINT  INK 2;AT 9,35"BANG!'!'”: PRINT : PRINT  INK 035"BIEN HECHO 
- AHORA ESTAS MUERTO!": STOP 
135 PRINT AT 2,0;"Tienes tan mala suerte que ni- sicuiera te puedes matar!!": 
PRINT : PRINT TAB 3; "INTENTALO DE NUEVO!'"”": GO TO 60 
140 PAUSE 200: CLS : RETURN 


AHORCADO 


Este juego es el mismo que ese al que, seguramente, habrás jugado con lápiz y 
papel. 


Tienes que adivinar letra a letra una palabra de 5 letras o más que "pensará" 
el ordenador. Cada vez que aciertes una letra, ésta aparecerá en su posición. 
Si fallas una letra contribuirás a ahorcar a un hombre. Primero dibujarás el 
patíbulo, luego la cuerda y por último al pobre desgraciado. 


El ordenador te muestra además las letras que has fallado para que no lo repitas. 


NOTA: Si quieres cambiar la colección de palabras, cambia las líneas de la 700 
a 790 (sentencia DATA). Si aumentas el número de palabras tendrás que cambiar 


JUEGOS PARA ENTRETENERSE 


el 50 de las líneas 30, 50 y 80 por el número total de palabras que hayas 
escogido. 


1 REM %% AHORCADO 4% 
20 INK 7: PAPER O: BORDER O 
22 CLS 
30 DIM W$(50,10) 
32 LET C$="": LET FL=0 
34 LET SC=0: LET NW=0 
40 RANDOMIZE 
50 FOR J=1 TO 50 
60 READ WS$(J) 
70 NEXT 3 
80 LET R=INT (RND%*SO)+1 
82 LET LC=0 
90 LET CT=10 
92 PRINT INK 23AT 1,4)"PALABRAS: —"¿NW;" PUNTOS: "psc 
100 FOR J=10 TO 1 STEP -1 
110 LET AS=W8(R,J) 
120 IF A$<>" * THEN GO TO 150 
130 LET CT=CT-1 
140 NEXT J 
150 FOR J=1 TO CT 
160 PRINT AT, 16,11+Jj"_" 
470 NEXT J 
200 LET GS=INKEYS 
202 IF G6>"a" AND G$<"z" THEN PRINT AT 3,6;"USA MAYUSCULAS, POR FAVOR" 
205 IF Gé<"A" AND G$<"Z" THEN GO TO 200 
208 BEEP .2,9 
«210 FOR J=1 TO CT 
220 IF GS=WS(R,J) THEN PRINT AT 16,1+J;68: LET Fl=1 
240 NEXT J 
241 LET Có="*"-. 
242 FOR J=1 TO 10 
243 LET TS=SCREENS (16,1+J) 
244 LET CS=CS$+T8 
245 NEXT J 
246 IF Cé=W$(R) THEN GO TO 470 
249 IF Fl=i THEN LET FL=0: GO TO 190 
250 PRINT PAPER 53 INK 9jAT 20,LC+4;G8 
260 LET LC=LC+1 
270 IF LC<>»1 THEN GO TO 300 
280 PLOT 110,62: DRAW INK 420,0 
290 GO TO 190 
300 IF LC<>2 THEN GO TO 310 
302 PLOT 120,62: DRAW  INK 450,60 
304 GO TO 190 
310 IF LC<>3 THEN GO TO 320 
312 PLOT 140,122: DRAW  INK 4;-20,0 
314 60 TO 190 
320 IF LC<>4 THEN GO TO 330 
322 PLOT 140,122: DRAW  INK 450, -10 
324 GO TO 190 
330 IF LC<>5 THEN G0 TO 340 
332 CIRCLE INK 6)140,107,4 
333 PLOT 139,108: PLOT 142,108: PLOT 139,108: DRAW 3,0 
334 G0 TO 190 
340 IF LC<>é6 THEN GO TO 350 
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342 
349 


350 
352 
354 
360 
362 
364 
370 
372 
374 
380 
382 
384 
390 
400 
410 
420 
422 
430 
932 
440 
442 
460 
470 
480 
490 
500 
510 
512 
514 
520 
530 
540 
550 
560 
570 
580 
5e2 
590 
600 
610 
620 
630 
700 
710 
720 
730 
740 
750 
760 
770 
7830 
>90 


PLOT 140,102: DRAW  INK 230,-15 

GO TO 190 

IF LC<>7 THEN GO TO 360 

PLOT 140,102: DRAW  INK 25-5,-11 

60 TO 190 

IF LC<>8 THEN GO TO 370 

PLOT 140,102: DRAW  INK 25-5,-11 

60 TO 190 

IF LC<>9 THEN GO TO 380 

PLOT 140,87: DRAW  INK 55-5,-12: DRAW  INK 55-1,1 

G0 TO 190 

IF LC<>10 THEN GO TO 390 

PLOT 140,87: DRAW INK 535,-12: DRAW  INK 551,1 

GO TO 190 

PLOT 140,102: DRAW OVER 1;-5,-11 

PLOT 140,101: DRAW  INK 25-10,0 

PLOT 140,102: DRAW OVER 15-5,-11 

PLOT 140,101: DRAW  INK 2;510,0 

BEEP 2,-17 

PLOT 140,101: DRAW OVER 1;-10,0 

PLOT 140,102: DRAW  INK 25-5,-11 

PLOT 140,101: DRAW OVER 1510,0 

PLOT 140,102: DRAW  INK 255,-11 

GO TO 540 

FOR J=-7 TO 7 STEP 2 

BEEP .2,J 

NEXT J 

BEEP 1,9 

PAUSE 300 

LET SC=SC+1 

LET NW=NW+1 

CLS 

60 TO 80 

FOR J=7 TO -7 STEP -2 

BEEP .2,3 

NEXT J 

BEEP 1,-9 

PAUSE 300 

LET NW=NW+1 

cLs 

PRINT PAPER 23 INK OJAT 6,4;"LA PALABRA ERA "¡WS(R) 
PAUSE 300 

cLs 

60 TO 80 

DATA "ESCUELA", "CACATUA”, "DIRECCION", "LONGITUD", "EXPERTO" 
DATA "ESPEJO", "COMPUTADOR", "LEGIBLE", "MEDICINA”, "QUERER" 
DATA "MISTERIO", "DELFIN","FEBRERO”, "BLANCO", "ESPECIAL" 
DATA "PAVIMENTO", "FPAGIL", "DIFICULTAD", "INVENTO", "PINGUINO" 
DATA "ALFABETO", "SAXOFON”, "CAFETERA", "DIANA", "CUADRO” 
DATA "SOLDADO”,"GENIO”,"MESILLA”,"MASTIL”, "YATE" 

DATA "CILINDRO”,"ESFERA”, "POLIGONO", "PIRAMIDE", "IGLESIA" 
DATA "DISTURBIO", "MOLESTIA", ”CANSADO”,"MIEDOSO”, "PERDIDO" 
DATA "ELEFANTE", "JIRAFA","COCODRILO”, "MURCIELAGO", "SERPIENTE" 
DATA "CUCHARA", "TENEDOR”,”"CUCHILLO”, "PLATO", "VASO” 
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JUEGOS PARA ENTRETENERSE 


PALABRAS: 


pi 


AUNMFSTUBU 


ERDIDO 


PALABRA: 1 PUNTOS: 1 


ERDIDO 


AUNMFSTUBU 


JUEGOS DE AVENTURA 


El castillo del diablo*La venganza del castillo*Limonadas Joe 


EL CASTILLO DEL DIABLO 


Has sido transportado por un genio malvado al interior del castillo del diablo. 
Para defenderte cuentas sólo con tu espada mágica. Deberás enfrentarte a 
hombres y monstruos buscando la salida; para ello deberás tomar decisiones y 
librar batallas. 


El juego concluye, o bien cuando sales o bien cuando tus puntos de energía 
llegan a valor cero, es decir, mueres. Los puntos de energía disminuyen por las 
heridas que recibes en las batallas. 


Debido a que el juego no tiene un vocabulario muy amplio, las ordenes deberán 
ser claras y sencillas. El ordenador reconoce las Órdenes con sólo las dos 
primeras letras, por lo que no es preciso que escribas las órdenes enteras, sino 
sólo sus dos primeras letras. 


El vocabulario que puedes usar es el siguiente: 
—MIRA ESTO. 
—EXAMINA ESTO. 
—TOMA ESTO. 
—MATA. 
—CORRE.. 
—HABLA. 
—IGNORA. 


Aún cuando llegues a la salida, quizá no termines el juego, ya que el demonio 
te estará esperando, y si no tienes suerte te volverá a llevar al principio. 


NOTA: La variable DELAY que aparece en el programa tiene el valor 2500. Es 
bastante útil utilizar sentencias del tipo GO SUB DELAY, ya que si quisiéramos 
que la subrutina comenzara en otra sentencia distinta a la 2500, sólo tenemos 
que cambiar el valor de DELAY, y no todas las sentencias del tipo GO SUB DELAY. 


1 REM XX EN El CASTILLO XX 

2 REM %%* TEL DIABLO XX 

3 REM PIN MAYUSCULAS 

4 REM TOmar, COrrer, MAter, IGnorar, HAblar 

S DIM M$(4,13): FOR Z=1 TO 4: READ M$(Z): NEXT Z 

6 BORDER 1: INK 2: PAPER 1: CLS : BEEP 1,30: BEEP .5,20: BEEP .5,30 
7 DATA "ESCUDO MAGICO ","ANILLO ","RATON MUERTO ","BRAZO " 
8 LET DELAY=2500 

10 GN SUR DELAY 
20 PRINT ”* HAS SIDO LLEVADO A ALGUN SITIO" 
30 PRINT "EN EL CASTILLO DEL DIABLO” 
725 GO SUP DELAY 
40 PRINT "TU TIENES UNA ESPADA” 


ES 
au 


GO SU38 DELAY 


50 PRINT "LAEXBUENA SUERTEXAXXA" 

=5 LET MK=0: LET AA=0: LET LL=0: LET MA=0: LET CA=0: LET K=0 
60 LET HP=50:. LET KI=0: LET TR=90: LET M=0: LET IN=0 

70 1F HP<=0 THEN 60 TO 2000 


Ml ” 
tun 


IF TP>2000 THEN INPUT FLASH 13 INK 23 "QUIERES IRTE(S/N)?"j¡0%: IF 0Q$="S"* T 
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HEN GO TO 2300 
72 GO SUB DELAY: PRINT FLASH 15 BRIGHT 1; PAPER 2;3"PULSA UNA TECLA PARA CONTI 
NUAR” 
73 IF INKEYS<>"" THEN GO TO 73 
74 IF INKEYS<>"" THEN GO TO 74 
75 GO SUB DELAY: PRINT "VES: "; 
80 LET A=INT (RND%6) 
90 60 TO 100*(A+1) 
100 PRINT " UN OBJETO MISTERIOSO”: LET B=INT (RND*4)+1 
105 INPUT "QUE QUIERES HACER? "As 
107 IF A$( TO 2)="MI" OR A$( TO 2)="EX" THEN GO TO 110 
108 GO TO 71 
110 GO SUB DELAY: PRINT "ES UN”; FLASH 15MS5(B): IF B=3 OR B=4 THEN 60 TO 70 
115 IF B=1 THEN LET Kl=KI+5: PRINT **"Y LO COGES”: GO SUB DELAY: GO TO 71 
120 IF B=2 THEN LET C=INT (RND*100)+100: PRINT **'"EL ANILLO ESTA VALORADO EN 
*3Cj" MONEDAS DE ORO": LET TR=TR+C 
125 PAUSE 50: PRINT *”*'"AHORA TIENES "3TR5"MONEDAS DE ORO": GO SUB DELAY: GO TO 
71 . 
200 PRINT FLASH 15 INK 23 PAPER 6;” UN MONTON DE TESORO!!";: PAUSE 50: IF RND< 
.5 THEN PRINT * Y UN MONSTRUO": LET M=2 
210 GO SUB DELAY: INPUT "QUE QUIERES HACER AHORA";BS$: IF B$( TO 2)="MA" AND M>0 
THEN GO TO 1000 
211 IF BS( TO 2)="TO0" AND M>O THEN GO TO 224 
215 IF Bs( TO 2)="T0" THEN LET TR=TR+INT (RND*X100)+200: GO SUB DELAY: PRINT "A 
HORA TIENES "3TR;" MONEDAS DE ORO": GO SUB DELAY: GO TO 71 
217 PRINT AT 20,13" NO ENTIENDO": PAUSE 100: PRINT AT 20,15" ": 66 T 
o 210 
218 G0 TO 210 
220 IF B$="CORRER" THEN LET F=RND: 1F F<.S THEN GO SUS DELAY: PRINT "TE ESCAP 
ASTE!'!'": GO SUB DELAY: GO TO 71 
221 IF B$( TO 2)<>"C0" THEN GO TC 230 
225 IF M>0 THEN PRINT "TE VE Y NO ESCAPARAS": LET IN=0: GO TO 1010 
230 PRINT AT 20,15" NO ENTIENDO": PAUSE 100: PRINT AT 20,14" ”: GO T 
o 210 
300 PRINT "UNA PUERTA" 
305 PRINT ””* "QUIERES ABRIRLA (S/N)?" 
307 IF INKEY$<>"N" AND INKEY$<>"S" THEN GO TO 307 


310 IF INKEYS$="N" THEN GO SUB DELAY: GO TO 71 

320 IF RND>.5S THEN GO SUB DELAY: PRINT "VES UNA HABITACION VACIA": GÚ SUB DELA 
Y: GO TO 71 

330 GO SUB DELAY: PRINT "VES UNA HABITACION CON “3: GO TO 80 

400 PRINT "UN MONSTR!IJO!!”": LET M=1 

403% INPUT "QUE GUIERES HACER AHORA?"5A$ 

410 IF A$t TO 2)="MA”" THEN CO TO 1000 

413 IF A$S( TO 2)="C9" AND RND<.S THEN GO TO 225 

420 IF A$( TO 2)="CO” THEN GO SUB DELAY: PRINT "HAS ESCAPADO": LET M=0: GO SUB 
DELAY: GO TO 71 

430 PRINT AT 20,13" NO ENTIENDO": PAUSE 100: PRINT AT 20,15" ": 60 T 
o 405 

500 PRINT " UNA TRAMPA" 

505 IF RND<.3 THEN PAUSE 100: PRINT ”?”? FLASH 1;"PERO LA HAS EViTADO”: GO SUB D 
ELAY: GO TO 71 

510 GO SUB DELAY: PRINT "UN DARDO ENVENENADO”;*”*5”* Y HACE"j: LET B=INT (RND*S5) + 
1 

512 PAUSE 20: PPINT * "3B;" HERIDAS” 

515 LET HP=HP-B: GO SUB DELAY: PRINT "TIENES "3; INVERSE 1;HP)* DE ENERGIA": GO 
SUB DELAY: IF HP<1i THEN CS TO 2000 

521 GO SUB DELAY: 609 TO 721 

600 PRINT "UN HAMBRE” 

603 INPUT "QUE QUIERES HACER?";A5: IF A$( TO 2)="14A" THEN GO TO 1000 
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610 IF A$( TO 2)="HA"” THEN CO SUB EELAY: 60 TO 650 

620 IF AS(t TO 2)="IG" THEN $2 TO £30 

£25 PRINT AT 20,15" NO ENTIENDC”": PAUSE 100: PRINT AT 20,13" ": GO T 
o én5 

630 LET UL=RND: IF LL<.7 THEN PRINT "YA SE HA IDO":- GO SUB DELAY: GO TO 71 

633 PRINT ””"EL SE ACERCA": PAUSE SO: GO TO 450 

640 GO SUB DELAY: GC TO 71 

650 LET Z=RND: IF 2“.3 THEN FRINT “"*"TE DA UN TESORO Y SE VA": GO TO 670 

653 IF 2.23 TEN PRINT "NO HACE NADA MAS QUE LARGARSE...”": GO SUB DELAY: GO TO 
71 

660 BEEP ,4,3: BEEP .2,9: PRINT ”*"MO LE CAES BIEN, TRONCO..."”": PAUSE SU; PRINT 
* "Y DECIDE MATARTE”: GO SUB DELAY: GO TO 1000 

670. LET TR=TR+INT (RNDX100)+50: GO SUB DELAY: PRINT "TIENES "“3TR3*"”" MONEDAS DE 
ORO": GO SUR DELAY: GO TO 71 

1000 LET IN=INT (RNDX2) 

1002 FCR R=1 TO 30: BEEP ,OS,R: MEXT R 

1005 IF IM=1 THEN GC TO 1020 

1010 LET MA=0: 1F IN=O THEN LET MA=INT (RNDX20)+1: IF MA>15 THEN GO TO 1500 
1013 PRINT ””" FALLO" 

1016 FOR R=1 TO 350: BEEP .O5,R: NEXT R 

1020 PRINT *"PUEDES METERTE EN UN LIC": PAUSE 40: PRINT ””? FLASH 15"PULSA CUALQU 
IER TECLA !!” 

1030 IF INKEYS="" THEN BEEP .007,RND%SO: GO TO 1030 

1040 LET CA=INT (RNDF20)+1+KI: IF CA>15 THEN GO TO 1100 

1045 GO SUB DELAY 

1050 PRINT "FALLASTE”: LET IN=0: GO SUB DELAY: GO TO 1010 

1100 PRINT "LO MATASTE!!'": LET K=INT (RND*100)+50: GO SUB DELAY: PRINT "TENIA *5 
Kj” MONEDAS DE ORO”: LET TR=TR+K 

1103 LET MK=MK+1 

1104 LET AA=0 


1105 IF M=2 THEN LET AA=INT (RNDX*200)+100: PRINT ”?" Y EL TESORO ERA DE "“¿AA;3" M 

ONEDAS DE ORO”: LET TR=TR+AA 

1110 PAUSE 50: PRINT ”"AHORA TIENES "3TR3" MONEDAS DE ORO"3: LET M=0: GO SUB DEL 

AY: GO TO 71 

1500 BEEP .2,4: BEEP .3,6: BEEP .2,3: PRINT FLASH 13 INK 2; PAPER 63" TE HA HER 
1DO'”: LET HP=HP-10: IF HP<1 THEN GO TO 2000 

1510 GO SUB DELAY: PRINT "AHORA TU FUERZA ES DE "¿HP 

1520 GO SUB: DELAY: G9 TO 1020 

2000 GD SUB DELAY: FOR R=i TO 6: BORDER RNDXó6: BEEP .2,3%R: BORDER 1: NEXT R: GO 
SUB DELAY: PRINT FLASH 13 INK 23*"+++ ESTAS MUERTO +++" 

2003 PRINT *"HAS RECOGIDO ”"jTR” "PIEZAS DE ORO" 

2004 PAUSE 350: PRINT *"Y MATADO ”"j¿MK5" MONSTRUOS" 

2010 STOP 

2300 GO SUB DELAY: PRINT "ENFRENTE ESTA LA SALIDA! * 

23053 GO SUB DELAY: FOR R=1 TO 6: BORDER RND%é6: BEEP .007,2%*R: BORDER 1: NEXT R 
2310 1F RND<.S THEN PRINT ” FLASH 15" EL DEMONIO CIERRA EL CAMINO": GO TO 2400 
2320 GO SUB DELAY 
2330 PRINT *5"”"HAS TENIDO EXITO"”"HAS TERMINADO TU ODISEA" 

2340 FOR T=1 TO 40: BEEP .04,T: NEXT T 

2330 60 TO 2003 

2400 IF RND<.4 THEN PRINT "NO LE CAES BIEN *”*;j"Y TE HA METIDO EN EL CASTILLO OT 
RA VEZ": GO SUB DELAY: GO TO 72 

2410 PRINT “PERO SE SIENTE MISERICORDIOSO Y"*"TE DEJA MARCHAR ": PAUSE 50: GO TO 
2330 

2490 STOP 

2300 FOR Z=RNDXS TO RNDX*20+20 

2310 BEEP .007,Z 

2520 NEXT Z 

2330 CLS : PRINT ”?”>”” 

2540 RETURN 
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LA VENGANZA DEL CASTILLO 


La acción de este juego de simulación tiene lugar en un castillo en el que hay 
un cierto número de monstruos. Deberás luchar (o huir), contra los monstruos que 
vagan por él, par aconseguir salir. Puedes encontrar, además, cosas bastantes 
desconcertantes como arcones, botellas de poción mágica y otras cosas bastantes 
raras. 


No dispones del mapa del castillo, por lo que si quieres, empieza deambulando 
por éste y anotando los corredores y las habitaciones por donde pasas. 


Al sur del castillo se encuentra la Laguna Negra donde vive el Guardián. Para 
conseguir salir deberás mantener con él un gran combate. 


Tu personalidad se caracteriza, al igual que la de todos los monstruos por tres 
atributos: MAGIA, FUERZA y SABIDURIA. 


Los combates se realizan como sigue: 

- Eliges luchar. 

- Seleccionas qué tipo de lucha prefieres: M para magia, F para fuerza y S para 
sabiduría. Procura elegir aquel tipo en el que seas mucho más poderoso que él. 


Una vez finalizada la lucha, se te suman puntos de atributo si has ganado y se 
te restan si has perdido. 


Es más conveniente ganar con MAGIA, pues se suman más puntos. Sin embargo, es 
mejor perder con SABIDURIA, pues se pierden menos puntos de atributo. 


Cuando llegues a la Laguna Negra deberás librar tres batallas contra el Guardián, 
una con cada atributo, para poder escapar. 

El vocabulario que puedes utilizar es "S" (si) Óó "N" (no) para contestar a 
preguntas cortas como: Lo abrirás (S ó N)?. 


Y también el siguiente vocabulario: 
-'""N'" Dirección Norte. 

-'""S'" Dirección Sur. 

-"E" Dirección Este. 

-''0" Dirección Oeste. 

-"LU" Luchar. 

—-"HU" Huir. 

-'"'Q" Finalizar juego. 


1 LET 0=0 
10 REM EL CASTILLO ENCANTADOX 
20 GO SUB 9000 
30 CLS 
35 IF J$="000000" THEN GO TO 90 
40 PRINT INVERSE 1;N$;3",tus atributos son:” 
50 IF VAL (J$(1 TO 2))>0 THEN PRINT TAB 4; INVERSE 1;3"MAGIA: "5jjS(1 TO 2) 
60 IF VAL (J$(3 TO 4))>0 THEN PRINT TAB 43 INVERSE 1;"FUERZA: "5js5(3 TO 4) 
70 IF VAL (J$(5 TO 6))>0 THEN PRINT TAB 4; INVERSE 15j"SABIDURIA: "jj%S(5 TO 6 


80 IF MONEY>0 THEN PRINT TAB 4; INVERSE 1j"RIQUEZA: "¡MONEY;" Ptas.” 
90 IF J$="000000"” THEN PRINT * La aventura ha terminado”,"Has agotado tus fue 
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rzas.”,"Luchastebravamente y bien”,"pero no has podidoaguantar la",”"batalla....A 
dios...": STOP 
100 GO SUB PAUSE 
110 GO SUB ROOM 
120 LET M=0: IF Z>1 THEN IF RND>.S THEN GO SUB 7000: POKE 23692,-1 
130 GO SUB PAUSE 
140 G0 SUB ACTION 
150 60 TO 30 
MT 
2000 REM SUBRUTINA MONSTRUO 
2010 IF Qui THEN PRINT "Hay un furioso guardian en la","habitacion. Tiene una m 
agia "¡MS(1,2 TO 3);3”", su fuerza es "¡M6(1,4 TO 5);3" y su", "sabiduria es"j¡mS$(1,6 
TO 7?) 
2020 IF O=2 THEN PRINT "Hay un sopla-fuegos Temible.Su","sabiduria es "j¡M$5(2,6 
TO 7);”, mientras que”",“su fuerza es *";3MS5(2,4 TO 5S)3" y su magia es "jM$(2,3 TO 
4) 
2030 1F €O=3 THEN PRINT "Horror! has caido en el horri-","ble lugar del Alma-en- 
pena.”","Su fuerza es "¡M$(3,4 TO 5);]”", su magia es "31MS$(3,2 TO 3),"y su sabiduri 
a es "jMs8(3,6 TO 7) 
2040 IF QO=4 THEN PRINT "Has tropezado con algo en la”,"oscuridad.": GO SUB pAUS 
E: PRINT "se despierta y te encuentras”, "cr a cara con el Rompe-Rodi-","llas. Su 
magía es"jm$(4,2 TO 3);”, su fuerza es ";M$(4,4 TO 5);" y su sabiduria es "jMS( 
4,6 TO 7) 
2050 IF 0O=3 THEN PRINT "Ahora si que tienes problemas!'!'": GO SUB PAUSE: PRINT * 
Has encontrado al peor enemigo”","del castillo: EL Hombre Lobo.”,"Con unafuerza d 
e ";¡Ms(5,4 TO 35)3", sabiduria de "3M$5(5,6 TO 7)" y una magia de "3M$(5,2 TO 3)5 
" , es un enemigo dificil de vencer.” 
2060 GO SUB PAUSE 
2070 RETURN 
2080 REM IRRRRRRRRRRRRRRORARARDA: 
4000 REM FINAL DE JUEGO 
4010 PRINT "Has caido en el pantanode","fango que rodea La Laguna Negra","bajo e 
1 castillo. Para escapar”","del castillo debias haber”,"luchado con el Guardian d 
e la”, "Lay una Negra” 
4020 PRIN: *"En la lucha debers usar todos","tus atributos... y”,"vas a neceitar 
10 puntos para”,"escapar” 
4030 GO SUB PAUSE 
4040 1F MONEY>O THEN PRINT “Tienes";MONEY;" Ptas. en oro" 
4050 GO SUB PAUSE 
4060 PRINT *losatributos del GUardian:” 
4070 PRINT TAB 3;"MAGIA: "jM$*(6,2 TO 3) 
4080 PRINT TAB 3; "FUERZA: "jM%(6,4 TO 5) 
4090 PRINT TAB 33"SABIDURIA: "jMb5(6,6 TO 7) 
4100 PRINT "sus atributos son:" 
4110 PRINT TAB 33"MAGIA: *"3Js$(1 TO 2) 


4120 PRINT TAB 3;"FUERZA: "3J$(3 TO 4) 

4130 PRINT TAB 3;"SABIDURIA: "3J*s(5 TO 6) 

4140 GO SUB PAUSE 

4150 IF MONEY<100 THEN GO TO 4270 

4150 PRINT ”?* "Puedes comprar puntos de atributo a 100 Ptas. cada uno” 
4170 PRINT "Si uieres comprarlos, entra la”,"inicial del atributo que",”"”quiers s 
eguido del numerc” 

4180 PRINT "de puntos. Entra *N” si no","quieres comprar " 

4190 INPUT FLASH 1;"Atributo? ”";ES 

4200 IF E$="N" THEN GO TO 4270 

4210 INPUT FLASH 1;"Cantida? ";AM 

4220 IF MONEY-AM<1 OR AM<100 THEN GO TO 4210 

4230 IF E$="M" THEN LET J$(1 TG 2)=STR$ (VAL (J$(1 TO 2))+INT (Ai/100)) 
4240 IF E$="F" THEN LET J$%(3 TO 4)=STRS$ (VAL (J$13 TO 4))+INT (AM/100)) 
4250 IF E%$="S" THEN LET J$(S TO 6)=STR$ (VAL (J$(5 TO 6))+INT (AM/100)) 
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4255 PRINT "MAGIA: "3J$5(1 TO 2)3" FUERZA: "3J$5(3 TO 9);"” SABIDURIA: *;jJ$*(5 TO 6) 
3" ORO: "jMONEY 

4260 LET MONEY=MONEY-AM: IF MONEY>99 THEN G9 TO 4190 

4270 CLS : PRINT "Ahora el Ultimo Examen...”: GÚ SUB PAUSE 

4275 INPUT FLASH 1;5BIN 13 PAPER 2;"Aprieta Enter cuando estes listo para luchar 
”"s5A$: GO SUB PAUSE: CLS 

4280 PRINT *"Primero, Magia!” 

4290 LET MH=VAL (J$(1 TO 2)): LET MG=VAL (M$(6,2 TO 3)) 

4300 PRINT TAB 3;“Tu: "¿MH;" guardian "¡MG 

4310 LET DIFF=ABS (MH-MG) 

4320 PRINT "La diferencia es "¡DIFF 

4330 IF MH>MG THEN PRINT "a tu favor" 

4340 IF MH<MG THEN PRINT "y el Guardian ha ganado” 

4350 GO SUB PAUSE: LET COST=INT (RNDX*((MH+MG)/2))+1 

4360 PRINT *"esta vez tienes una penaliza-","cion de "3COST;3" puntos de atributo 

”: GO SUB PAUSE 

4370 LET RESULT=INT (RNDDIFF)+1 

4380 LET RESHU=ABS (RESULT-MH) 

4390 LET RESGA=ABS (RESULT-MG) 

4400 IF RESHU>RESGA THEN PRINT "Y has ganado ";¡COST;5” puntos magicos": LET MH=M 

H+COST: LET J$(1 TO 2)=STR% (MH): GO TO 4420 

4410 PRINT "Y has perdido ";3COSTJ" puntos magicos”: LET MH=MH-COST: LET J$(1 TO 

2)="00": IF MH>O THEN LET J$(1 TO 2)=STR$- (MH) 

4480 INPUT FLASH 13 PAPER 75 INK 2;"Pulsa ENTER cuando estes listo","para conti 

nuar esta crucial","retod”",,AS: GO SUB PAUSE: CLS 

4485 PRINT "Ahora Fuerza!” 

4490 LET MH=VAL (J%$(3 TO 4)): LET MG=VAL (M$5(6,4 TO 5)) 

4500 PRINT TAB 35;"Tu: "3MH5" guardian "3MG 

4510 LET DIFF=ABS (MH-MG) 

4520 PRINT "La diferencia es "¡DIFF 

4530 IF MH>MG THEN PRINT "y tu ganas" 

43540 IF MH<MG THEN PRINT "y el Guardian ha ganado” 

4550 GO SUB PAUSE: LET COST=INT (RND*( (MH+MG)/2))+1 

4560 PRINT *"esta vez tienes una penaliza-","cicn de "3C0ST;” puntos de atributo 

”: GO SUB PAUSE 

4570 LET RESULT=INT (RNDDIFF)+1 

4380 LET RESHU=ABS (RESULT-MH) 

4590 LET RESGA=ABS (RESULT-MG) 

4600 IF RESHU>RESGA THEN  PRINT "Y has ganado ";jCOST;" puntos de fuerza": LET MH 

=MH+COST: LET J6(3 TO 4)=STR$ (MH): GO TO 4480 


4610 PRINT "Y has perdido "j¡C0ST3" puntos de fuerza": LET MH=MH-COST: LET J$(3 T 

O 4)="00": IF MH>O THEN LET J%$(3 TO 4)=STRS (MH) 

4670 LET RESULT=INT (RNDXDIFF)+1 

4680 INPUT FLASH 13 BRIGHT 15 PAPER 23 INK 75"*"Ahora el reto final.”,"pulsa "j 1 

NVERSE 1j"ENTER”"; INVERSE 03” cuando te atrevas”;jA$: GO SUB PAUSE: CLS 

4683 PRINT *'"Ahora Sabiduria: ” 

4690 LET MH=VAL (JS(5 TO 6)): LET MG=VAL (M$(6,6 TO 7)) 

4700 PRINT TAB 3;"Tu: "jMH]” guardian "¡MG 

4710 LET DIFF=ABS (MH-MG) 

4720 PRINT "La diferencia es "¡DIFF 

4730 IF MH>MG THEN PRINT ”*y tu ganas” 

4740 IF MH<MG THEN PRINT “*y el Guardian ha ganado" 

4750 GO SUB PAUSE: LET COST=INT (RNDX(MH+MG))+1 

4760 PRINT *""esta vez tienes una penaliza-","cion de "*jC0ST3" puntos de atributo 
"::GO SUB PAUSE 

4770 LET RESULT=INT (RNDXDIFF)+1 

4780 LET RESHU=ABS (RESULT-MH) 

4790 LET RESGA=ABS (RESULT-MG) 

4800 IF RESHU>RESGA THEN PRINT "Y has ganado "jC0ST5" puntos de sabiduria": LET 
MH=MH+COST: LET JS6(5S TO 6)=STRS (MH): GO TO 4820 
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PRINT *Y has perdido ";¡COST;3" puntos de sabiduria": LET MH=MH-COST: LET Js( 

6)="00": IF MH>0 THEN LET J$5(5 TO 6)=STRS (MH) 

LET A=VYAL (J$(1 TO 2)) 

LET B=VAL (J$(3 TO 4)) 

LET C=VAL. (J$(5 TO 6)) 

GO SUB PAUSE 

PRINT *"Al final de esta cruenta",”" batalla,tienes:” 

PRINT TAB 33]"MAGIA: "jA 

PRINT TAB 3; "FUERZA: "jB 

PRINT TAB 33"SABIDURIA: ";C 

IF A+B+C>9 THEN PRINT * FLASH 15 BRIGHT 15 PAPER 75 INK 2;"LO has logrado. 

heroe de","estososcuros y peligrosos”*,"tiempos. Yo te nombro "3 INVERSE 15” 
INVERSE 05” ”"3N$;: GO SUB PAUSE: STOP 


4940 PRINT *Todo ha terminado.Necesitarias”","al menos 10 puntos en total”,"para 
escapar de las garras”,”"del Guardian" 


4950 
4960 
4970 
5000 
50053 
5010 
5015 
5020 
5022 
5025 
5030 
o 

5040 


PRINT *"Hasluchado con vlentia, pero","ahora seras comido por","el Guardian 


GO SUB PAUSE: STOP 

TI 

REM SUBRUTINA DE ACCION 

LET D=4: IF B$(Z,9)="0" THEN LET D=1 

PRINT *"Que quieres hacer ahora?" 

INPUT Z$6: IF Z$="Q" THEN STOP 

IF Z$="" THEN CLS : LET ZS$="RA" 

IF (D=4 AND Z$<>"LU") OR (D=4 AND Z$<>"HU") THEN LET D=0: GO TO 53160 

IF Z$="LU" OR Z$="HU"” THEN GO TO 5130 

IF Z$="N"” AND B$(Z,1 TO 2)="00" THEN PRINT ,"NO SE PUEDE SALIR": GO TO 501 


IF Z$="S" AND B$(Z,3 TO 4)="00" THEN PRINT ,"POR AQUI NO HAY PUERTA": GO T 


o 35010 


5050 
5060 
5070 
5080 


5090 
5100 
5110 
5130 
le] 

5140 
5150 
5160 
5170 
5180 
5190 
5200 
s210 
5220 
5230 
5240 
5250 
”m 

5260 
35270 
5280 


IF Z$="E"” AND B$(Z,3 TO 6)=”"00" THEN PRINT ,"NO ES POSIBLE": GO TO 5010 
IF Z$="0" AND B$(Z,7 TO 8)="00” THEN PRINT ,"NO PUEDES PASAR": GO TO 5010 
IF Z$="N" THEN LET Z=VAL (B$(Z,1 TO 2)): RETURN 

IF Z6="S" THEN LET Z=VAL (B$(Z,3 TO 4)): RETURN 


IF Z$="E" THEN LET Z=VAL (B$(Z,5 TO 6)): RETURN 

IF Z$="0" THEN LET Z=VAL (B$(Z,7 TO 8)): RETURN 

IF Z$<>"LU" OR Z$<>"HU" THEN RETURN 

IF B$(2,9)="0" THEN PRINT "No hay ndie para luchar contra","el”: GO TO 501 


IF Z$="HU" THEN LET D=INT (RND*Z2) 

IF D=i THEN PRINT "En que direccion?": GO TO 5015 

IF D=0 THEN PRINT "“No!'' Debes quedarte y luchar" 

PRINT *”**Con que atributo, prefieres”,"luchar?" 

LET O=VAL (B$(z,9)) 

INPUT Z$: IF Z%$<>"M" AND Z6<>"F" AND Z$<>"S" THEN GO TO 5190 

IF Z$="M" THEN LET HUM=VAL (J$(1 TO 2)): LET MON=VAL (M$(0,2 TO 3)) 
IF Zó$="F" THEN LET HUM=VAL (J$(3 TO 4)): LET MON=VAL (M$(0,4 TO 3)) 
IF Zb="S" THEN LET HUM=VAL (J$(S TO 6)): LET MON=VAL (M$(0,ó TO 7)) 
LET DIFF=ABS (HUM-MON) 

PRINT ,, FLASH 15 BRIGHT 13 INK 23 PAPER 7)j"La diferencia es "¡DIFF 
IF HUM>MON THEN PRINT FLASH 15 BRIGHT 15 PAPER 25 INK 75;"y tienes ventaja 


IF HUM<MON THEN PRINT FLASH 15 BRIGHT 13 PAPER 23 INK 7;"y tiene ventaja" 
LET COST=INT (RNDX6)+1 
PRINT *”? FLASH 13 BRIGHT 13 PAPER 35 INK 9;"Esta lucha tiene una penaliza-" 


"cion de "j INVERSE 1;¡C0ST5p INVERSE 03" puntos", 


5290 
5300 
5310 
5320 


LET RESULT=INT (RNDXDIFF)+1 
GO SUB PAUSE 

LET RESHU=ABS (RESULT-HUM) 
LET RESMO=ABS (RESULT-MON) 
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5330 IF RESHU<RESMO THEN GO TO 5390 

5340 PRINT **? FLASH 13 PAPER 25 INK 63"Hassido derrotado!" 

5350 IF ZS="M" THEN LET MS$(0,2 TO 3)=STRS (VAL (M$(0,2 TO 3))+2%*C0OST): IF VAL ( 
JS(1 TO 2))>=COST THEN LET J$(1 TO 2)=STRS (VAL (J$(1 TO 2))-COST) 

S360 IF Z$="F" AND VAL (J$(3 TO 4))>=COST THEN LET J$(3 TO 4)=STRS$ (VAL (J$(3 T 
O 4))-COST) 

5370 IF Z$="S” THEN LET M$(0,6 TO 7)=STRS (VAL (M$(9,6 TO 7))+INT (COST/2)): IF 
VAL (I$5(5 TO 6))>=C0ST THEN LET J3$(53 TO 6)=STR$ (VAL (J$(5 TO 6))-COST) 

5380 GO TO 54490 

5390 REM VICTORIA HUMANA 

5400 PRINT **? FLASH 15 BRIGHT 13 PAPER 23 INK 6j"Lo has derrotado!!" 

5410 IF ZSK="M" THEN LET J$(1 TO 2)=STRS$ (VAL (J$(1 TO 2))+2%XCOST): IF VAL (M$(0Q 
32 TO 3))>=C0ST THEN LET M$(09,2 TO 3)=STRS (VAL (J$(0,2 TO 3))-COST) 

5420 IF Z$="F" THEN LET M$(0,4 TO 53)=STR$ (VAL (M$(0,4 TO 5))-COST) 

59430 1F Z$="S" THEN LET J3$(89,5 TO 6)=STRS$ (VAL (J$(5 TO 6))+INT (COST/2)): IF Y 
AL (M$(Q,6 TO 7))>=COST THEN LET M$(9,ó6 TO 7)=STRS (VAL (M$(0,6 TO 7))-COST) 
54408 GO SUB PAUSE 

5450 PRINT "Despues de esta lucha tus","atributos son: ” 

5460 PRINT TAB 33"MAGIA: "53J$(1 TO 2) 

5470 PRINT TAB 33"FUERZA: "3JS5(3 TO 4) 

5480 PRINT TAB 33"SABIDURIA: "3J*$(5 TO 6) 

5490 PRINT *"Y los del ”3 

5500 1F Qui THEN PRINT "Guardian" 

5510 IF Q=2 THEN PRINT "“Temible” 

5520 IF QO=3 THEN PRINT *Alma-en-pena” 

5530 IF 0=4 THEN PRINT "Rompe-rodillas” 

5540 IF 0=5 THEN PRINT "Hombre-Lobo” 


5550 PRINT "son: ”* 

5560 PRINT TAB 3;3"MAGIA: "jMs$(0,2 TO 3) 

5570 PRINT TAB 3;"FUERZA: "5M$(0,4 TO 5) 

5580 PRINT TAB 33"SABIDURIA: "3M$(0,éó TO 7) 

5390 GO SUB PAUSE 

S600 PRINT "Pulsa ENTER para continuar” 

5610 INPUT TS: GO SUB PAUSE: CLS 

5620 LET Kz=2+INT (RNDX8) 

5630 IF K=Z THEN GO TO 5620 

5640 LET B5(K,9)=B5(Z,9) 

5650 LET B$(2,9)="0" 

5660 IF RND>.5S THEN RETURN 

7000 REM CONTENIDO 

7005 IF B$(Z,9)<>"0" THEN LET M=1: RETURN : REM NO CONCEDECONTENIDO SI HAY UN M 

ONSTRUO 

7010 PRINT : GO SUB 7000+100%*INT (RNDXS+1) 

7020 GO SUB PAUSE 

7030 RETURN 

7100 LET CHEST=CHEST+1: IF CHEST=S THEN RETURN 

7110 PRINT "Frente a ti hay un cofre ","marcado con un gran numero ";CHEST 

7120 PRINT *"Lo abriras (S o N)2" 

7130 GO SUB 7600 

7150 IF 2Z6="N" THEN RETURN 

7160 LET J=INT (RNDX3): GO SUB PAUSE 

7170 IF J=0 THEN LET CASH=100+INT (RND%X300): PRINT "Contiene oro del Dragon por 
*,"vlor de "j¡CASH3" Ptas.": LET MONEY=MONEY+CASH: RETURN 

7180 IF J=1 THEN PRINT "Ha saltado fuera un Duende ,","apunalandote!'": LET LOSS 

=INT (RNDX6)+1: IF VAL (J$(3 TO 4))-LOSS>=0 THEN LET J$(3 TO 4)=STRS$ (VAL (J$(3 
TO 4))-LOSS): RETURN 

7190 IF J=2 THEN PRINT "Sale un extrano humo, que te", "produce sueno y te dismi 
nuye”,*"tu poder magico”: LET LOSS=INT (RNDX*é6)+1: IF VAL (J$(1 TO 2))-LOSS>=0 THE 

N LET J$(1 TO 2)=STRS$ (VAL (J$(1 TO 2))-LOSS): RETURN 

7200 IF POTION=1 THEN GO TO 7010 
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7210 LET POTION=1 

7220 PRINT "Ves una botella pequena grabada” 

2230 PRINT *con curiosaletras torcidas." 

7240 PRINT "Beberas el brebaje que hay den-","tro de ella (S o N)?" 

2250 GO SUB 7600 

7260 IF Z%="N” THEN RETURN 

7270 GO SUB PAUSE 

7280 IF RND>.6 THEN PRINT "Contiene un brebaje para aumen-","tar tu sabiduria”: 
LET J6(3 TO 6)=STRS (VAL (J$5(S TO 6))=INT (RNDX6+1)): RETURN 

7290 PRINT "Contiene un brebaje que te de-","bilita, transmitiendote sueno": GO 
SUB PAUSE: LET 10SS=INT (RND6)+1: IF VAL (J$(3 TO 4))<LOSS THEN RETURN 

7295 LET J$6(3 TO 4)=STRS (VAL (J$(3 TO 4))-LOSS): RETURN 

7300 IF SCROLL=1 THEN RETURN 

7310 LET SCROLL=1 

7320 PRINT "Ves un rollo de papel.","deseas leerlo (S o N)?" 

7325 GO SUB 7600: 1F Z$="N" THEN RETURN 

7330 IF RND>.S THEN PRINT "No puedes entender el idioma."”: GO SUB PAUSE: RETURN 


7335 PRINT "Contiene un hechizo magico.”,"Quieres leerlo (S o N)?” 
7340 GO SUB 7600: GO SUB PAUSE: IF Z$="N" THEN RETURN 
7350 IF RND>.5 THEN PRINT FLASH 13 BRIGHT 133 INK 75 PAPER 2;"Era un hechizo b 


eneficioso": GO SUB Pause: LET J$(1 TO 2)=STRS (VAL (J$(1 TO 2))+INT (RNDX6+1)): 

RETURN 
7360 PRINT PAPER 25 INK 75 FLASH 15 BRIGHT 13” Era un hechizo perjudicial!!",: 

GO SUB PAUSE: IF VAL (J$(3 TO 4))>5 THEN LET J$(3 TO 4)=STRS (VAL (J$(3 TO 4)) 
-INT (RND*6+1)): RETURN 
7400 IF SAFE=1 THEN GO TO 7010 
7403 LET SAFE=1 
7410 PRINT "En la pared hay una caja dorada”,"pequena y en su parte frontal","ha 
y una llave” 

7415 PRINT "Quieres abrir la caja S o N)?" 

7420 GO SUB 7600 

7423 IF Z6S="N"” THEN RETURN 

7430 IF RND>.3 THEN GO TO 7460 

7433 GO SUB PAUSE: PRINT *"*"Un murcielago sale chillando”,"y unde sus dientes en 
tu”","garganta!!!” : 

7440 GO SUB PAUSE 

7445 PRINT "Luchas con el y..."!: GO SUB PAUSE: PRINT "...finalmente le retuerces 
el”,"cuello” 

7450 IF VAL (J$(3 TO 4))>3 THEN LET J$(3 TO 4)=STRS (VAL (J$(3 TO 4))-INT (RND% 

6+1)) 

74335 GO SUB PAUSE: GO TO 7620 

7460 PRINT "Se oye uncoro de voces”,"angelicales": GO SUB Pause: PRINT "Te sient 
es reconfortado” 

7480 LET J$(3 TO 4)=STRS (VAL (J$(3 TO 4))-INT (RNDX6+1)) 

7490 RETURN 

7500 GO TO 7100 

7600 LET Z$=INKEYS 

7610 IF Z$<>"N" AND Z$<>"S" THEN GO TO 7600 

7613 PRINT 

7620 BEEP .5,1: BEEP .5,2: BEEP .5,-1: RETURN 

A 

8000 REM CONTENIDO HABITACIONES 

8010 IF Z=1 THEN PRINT "Te encuentras en la entrada de”,"un antiguo y prohibido 
castillo”",”"Estas en la fachada Norte","mirando la desmoronada”","estructura.",,” 
Te das cuenta de que el”, "portalon de entrada esta”," abierto y sin guarda” 

8020 IF Z=2 THEN PRINT "Te encuentras en la sala de","entrada que estadecorada 
con”","ricastelas. Las puertas estan","en direccion Este y Sur, y”,"se puede ver 
tambien un portal”,"abierto al Oeste” 

8030 IF Z=3 THEN PRINT "Esto es solamente un almacen","Solo tiene una salida, 1 
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a que”,"has usdo paraentrar, al Oeste” 

8040 IF Z=4 THEN PRINT "Estas en una sala pequena con","una bella escultura a 1 

a Diosa”,"de la Luna en un pedestal en la","esquina Nordeste. Es la Camara”, "Rea 
l. Las puerts estan al Sur,”,"Oeste y este" 

2050 IF Z=5 THEN PRINT "La Sala de las Conspiraciones,","una habitacion forrada 
en*,"madera, llera de rumores y”,"susurros, con salidas al Este","y al Sur,de 1 
a que llega un”, "olor a azufre y un ambiente”, "sobrenatural" 

8060 IF Z=6 THEN PRINT "Has encontrado la Gurida de","Brujos, con un czo hirvie 
ndo","en un fuego de llamas verdes en","la esquina Sureste.","esta sala con hedo 
r de azufre","y el eco de viejos sortilegios","la puedes abandonar hacia el","No 
rte, Sur o Este" 

8070 1F Z=7 THEN PRINT "Te encuentras en un lugar que”, "parece tranquilo y apac 
ible.",*"Es la Galeria depintura del","Castillo, con un gran cuadro", "del legenda 

rio Guardian de La”,"Laguna Negra a la izquierda de","la ventana de la pared ESt 

e.”,"Por la ventana puede ver las","ventanas de gran Sala, al otro","lado del ja 

rdin.","Las salidas son hacia el Norte","y hacia el Oeste" 


8080 IF Z=8 THEN PRINT "esta esunasala resplandeciente", "del castillo: la Gran 
Sala",”"Con un techo ricamente labrado","puede salr hacia el Norte","y hacia el E 
Ste por puertas”,"dobles de donde procede una","extrana musica. Desde las”,"vent 
anas del Oeste se puede ver","el Jardin y las ventanas de una”,"sala con muchos 
cuadros colgados” 

8090 IF Z=9 THEN PRINT "La musica de un cuarteto de", "cuerda llena la sala. Pue 
de","abandonar la sala por unas”,"puertas situadas al Oeste o por","una hacia el 

Sur” 

8100 IF Z=10 THEN PRINT "Estas ahora en el Santuario del","Silencio. Una sala + 
ria y”,"humeda. Tiene una salida hacia","el Norte"j: IF B$(10,3 TO 4)="12" THEN 

PRINT "y una hacia el Sur” 

8110 IF Z=11 THEN PRINT "Este debe ser el Vestibulo de","las Apariciones, una O 
scura”,"sala, donde la leyenda dice que","algunas noches se puede oir al", "Guard 
ian de la Laguna Negra.","Hay una puerta hacia el Norte": IF B$(11,3 TO 4)="12" 
THEN PRINT "Y una al Sur” 

8120 PRINT : 1F Z=12 THEN GO TO 4000 

8125 IF Zc>1 THEN IF BS(Z,9)="0" AND RND>.55S THEN LET B$(Z,9)=STRS (INT (RNDXS 

)): REM BORRE PARA TENER MENOS MONSTRUOS 
8130 IF BS$(Z,9)<>"0" THEN LET QO=VAL (B$(Z,9)): GO SUB 2000 
8140 RETURN 
8150 REM IABRRRRRBARRARRRRRADRARADA: 

9000 REM INICIALIZACION 

9010 RANDOMIZE 

9020 LET Z=i 

9030 LET PAUSE=9900 

9040 LET ROOM=8000 

9050 LET ACTION=5000 

9060 LET MONEY=0 

9070 LET CHEST=0 

9080 LET POTION=0 

9090 LET SCROLL=O0 

9100 LET SAFE=0O 

9110 DIM B$(12,10) 

9120 DIM MSB(6,7): DIM Js (6) 

9130 POKE 23692,-1: POKE 23658,8 
9140 INPUT "COMO TE LLAMAS? "¡Ns 
9150 PAPER 1: INK 7: BORDER 1: CLS 
9160 PRINT "HOLA! "3NS: PRINT "Por favor espera un momento..." 
9320 REM FILL ROOMS 

9330 FOR Tw=1i TO 12 

9340 READ TS 

9350 LET BS(T)=T8S 

9360 NEXT T 

9363 LET BS((10+INT (RNDX2)),3 TO 4)="12" 
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9370 
9380 
9390 
9400 
94940 
9450 
9460 
9470 
9480 
9490 
9500 


9310 
9520 
9530 
9540 
9550 
9560 
9570 
9580 
9590 
9600 
9610 
9620 
9630 
9640 
9650 
9660 
9670 
9680 
9890 
9900 
9905 
9910 
9920 
9930 
9940 
9950 
9960 
9970 
9980 
9990 


REM 
LET 
FOR 
LET 
LET 
NEXT 
REM 
FOR- 
LET 
LET 
LET 


NEXT 


REM CARACTER. 


DISTRIBUIR Y 
MS (1,1)=STRS 
A=2 TO 5 

MS (A, 1)=STRS 
BS((VAL MS(A, 
A: LET BS(1, 


CREAR MONSTRUOS 
(INT (RNDX9)+1) 


(INT (RND%S)+1) 
1)),9)=MB(A,1) 
9)="0* 


CARACTERISTICAS 


Azi TO é 


M$(A,2 TO 3)=STRS (INT (RNDX11)+10) 
M65(A,4 TO 5)=STRS (INT (RNDF11)+10) 
MS(A,Ó TO 7)=STRS (INT (RNDX*11)+10) 


A 


HUMANAS 


LET Js(1 TO 2)=STRS (INT (RND11)+10) 
LET J$(3 TO 4)=STRS (INT (RNDF11)+10) 
LET J$5(5 TO 6)=STRS (INT (RNDF11)+10) 
RETURN 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

POKE 


"0002000000" 
"0008030400" 
"0000000200" 
"0007020300" 
"0006040000" 
"0510070000" 
"0400000600" 
"0200090000" 
"0011000800" 
*0600000000" 
*0900000000" 
*0000000000" 
PAUSA RUTINA 
23692,-1: IF 


RND>.5 THEN GO TO 9950 


FOR I=RND*1O TO RND30O+10 STEP .5 


BEEP 
NEXT 
PRIN 
RETU 
FOR 


0.03,1 
I 

E 

RN 

I=1 TO 50 


IF RND>.7? THEN BORDER RND%7 


NEXT 
BORD 
GO T 


1 
ER 1 
O 9930 
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LIMONADA JOE 


Vamos a comprobar si eres un buen negociante. Acabas de comprar un quiosco de 
verano. Crees que serás cápaz de no acabar en bancarrota?. 


Todos los días te comunicarán el pronóstico del tiempo. Cuanto mejor tiempo 
haga, mejores ventas tendrás. Sabiendo el pronóstico del tiempo, deberás decidir 
el número de vasos que quieres fabricar. Ten en cuenta que si fabricas más copas 
de las que puedas vender, tendrás pérdidas. Tu Spectrum te informará de lo que 
te cuesta cada vaso de limonada y tú deberás decidir el precio al que venderás 
los vasos. 


A medida que pasa el tiempo, debido a la inflación subirá el alquiler y el costo 
de fabricación de la limonada. 


El programa terminará cuando éstes en bancarrota y deberás vender el puesto. 


10 
12 
15 

, BIN 
20 

,BIN 
25 


REM %% JUAN CAPITALISTA *%* 

POKE 23609,128 

DATA "e",O,BIN 10000010,BIN 10000010,BIN O1000100,BIN 00101000,BIN 00010000 
00010000,BIN O1111100 

DATA "*",O,BIN 10000010,BIN 11111110,BIN O1111100,BIN O0111000,BIN 00010000 
00010000,BIN O1111100 

DATA "Tormentoso”,10,30,"Humedo",25,40,"Nublado",35,50,"Templado”,45,70,"Ca 


luroso”,65,120,"Ardiente”,100,180,"Ola de calor",200,300 


45 
50 


110 
120 
130 


INK O: BRIGHT O: CLS 
FOR j=1 TO 2: READ a$: FOR i=0 TO 7? 


READ a: POKE USR a$+i,a! NEXT i: NEXT j 

BEEP .5,0 

DEF FN p(p,q)=q/(p/100)-100 

PRINT PAPER 63" PUESTO DE LIMONADAS "3*?*"Eres el propietario de 
*? "puesto debebidas donde se ">"venden limonadas. 

PRINT " Cada dia se te comunica el”,"pronostico del tiempo,a partir" 


PRINT "del cual,decidiras cuantas” 
PRINT "copas haras. Tambien seras", "infcrmado de cuanto te cuesta","cada co 


pay pedras decidir el", "precio de venta" 


140 
150 
150 
170 
180 
200 
210 
220 
230 
240 
250 
260 
270 
220 
290 
300 
302 
305 
307 
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PRINT "E] alquiler del puesto cuesta" 

PRINT "SO ptes. al dia, pero aumentara”",*"con la inflaccion." 
PAUSE 100: PRINT — INK 23”*”" BUENA SUERTE!!!" 

PRINT FLASH 1;5*" Pulsa unatecla para empezar *: PAUSE O: CLS 
LET cash=2000: LET weater=4: LET lemonade=.5: LET rent=50 


LET weater=w2ater+INT (RNDX3-1) 

IF uwezter=0 THEN LET veater=1 

IF teater=8 THEN LET veater=7 

PRINT PAPER 6:” PUESTO DE LIMONADAS * 

PRINT  INK 75 PAPER 1;5”" Informe de hoy y 
RESTCRE 25: FOR i=1 TO weater: READ w$,from,to: NEXT i 


PRINT *"Tiempo 2: *5 INK 1j3uws$ 

PRINT *"Cada copa te cuesta "“j INK Ojlemonade;" pts." 

PRINT *"Algquiler!: "j INK ijrentj3” ptas.” 

PRINT *"Tienes "3 INK 1jcashj INK 03" ptas. disponibles” 

BEEP .5,10: INPUT INK 2;3"Cuantas copas haras "j FLASH 1;"?";jcups 
IF cupstO0 THEN GC TQ 309 

GC SUB 9000: BEEP .T,5 

IF cupsti TREN LET eold=0: LET price=.1: LET cups=0;: GO TO 945 


310 INK 6: PAPER O: PRINT ”*"*Ccpas! 
320 FOR i=1 TO cups: PRINT ” *3: 
330 BEEP .5,10: INPUT 


"2"3jprice 
333 
335 
3340 
350 

O: PAUSE O: BEEP .5,5 
360 CLS : BRIGHT 1: 

NEXT i 

FOR i=C0 TO 

PLOT 0, i: 

NEXT i 

FOR i=0 TO 200 STEP 40 

PLOT ¿j,0: DRAYW 55, 48 

NEXT i 


BEEP .1,5 
INK O: PAPER 7: 


FOR i=18 TO 21: 
370 
380 
390 
400 


48 STEP 16 
DRAW 2355,0 


PRINT PAPER 6:;AT 8,83" 
FOR i=292 TO 98 
PLOT  INK 7372,i: 
NEXT i 

FOR i=1 TO é: 
NEXT i 

FOR i=1 TO 4: 
BRIGHT O 

INK 6 

FOR i=112 TO 115 

PLOT 64,i: DRAW 136,0 
NEXT i 

FOR izó6%4 TO 199 

PLOT i,116: DRAW 40,31 
NEXT i 

FOR iz=115 TO 294 STEP 
PLOT BRIGHT 03200,i: 
NEXT i 

FOR i=ié TO 23 

PLOT BRIGHT 03200, i: 
NEXT i 

INVERSE 1 

PLOT PAPER 064,116: 
PLOT PAPER 064,112: 
INK 0: INVERSE O 
PLOT 63,16: DRAW 0,100 
PLOT 199,16: DRAW 0,96: 
PLOT 64,15: DRAW 134,0 
INK 2: PLOT 72,79: DRAW 72,0 
PLOT 72,63: DRAW 72,0 

LET count=cups: GC SUB 700: 
IF count=0 THEN RETURN 
FOR i=11 TO 15 STEP 2: 
BRIGHT 8: PRINT AT i,8+j3” 
LET count=count-1: 
NEXT j: NEXT i: RETURN 

PLOT 160,80: DRAW 15,0,-PIX3/2 
PLOT 148,48: DRAW 0,27,-P1/6 
PLOT 187,48: DRAW -12,5,-PI/é6 
PLOT 156,48: DRAW 0,20 
PLOT 179,48: DRAW 0,20 
PLOT 168,48: DRAW 0,16: 


DRAW 


-1 
DRAW 


DRAW 


DRAW 
DRAYW 


DRAW 


NEXT is 


LIMONADAS JUAN 


PRINT PAPER 6jAT 9+i,853" 


INVERSE 15 


DRAW 8,8: 


LPRINT 7: PRINT 


IF price>5 OR price“.1 THEN GO TO 330 


PRINT AT i,035" 


INK 75120,0,-PI/12 


PRINT PAPER 6jAT 15+i,S)]” 


BRIGHT 0340,31 


BRIGHT 040,40 


PAPER 03134,0 
PAPER 03134,0 


INK 65 


GO TO 730 


FOR j=1 TO 9 
BEEP 
IF count=0 THEN RETURN 


ZO 


DRAW -8,8: DRAW 0,8: 


INK 2;3”Cual es su precio de venta para" "hoy 
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"5 FLASH 15 


PRINT ”"El precio de cada copa es "jpricej"ptas.” 
PRINT FLASH 13 INK 23”"Pulsa una tecla para empezar””"la venta”! 


BEEP .1,1 


"3 PAPER 6jAT 9,8;” 


"¡TAB 24; PAPER 6” * 


"; NEXT i 


PAPER 050,4 


DRAW 8,-16 
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790. DRAW -8,8: DRAW 0,8: DRAW 8,-16 

800 PLOT 162,83: DRAW 10,0,P1/2 

2810 CIRCLE 164,92,2: CIRCLE 171,92,2 

830 PRINT AT 17,93 INK Oj PAPER 65;"limonada:"jpricej” ptas." 

840 LET sold=(INT (RNDX(to-from)++rom)+(to-from) )480/FN p(lemonade, price) 
245 LET sold=INT sold: IF sold>cups THEN LET sold=cups 

850 LET sellc=sald 

860 FOR i=11 TO 15 STEP 2: FOR j=9 TO 17 

870 PRINT AT i,j5" ”: BEEP .1,10 

830 LET sellc=sellc-1: IF sellc=0 THEN GO TO 900 

8%0 NEXT j: NEXT i: GO SUB 700: GO TO 860 

900 IF sold=cups THEN PRINT  INK Oj PAPER 45AT 17,93" TODO VENDIDO * 
910 PAUSE 100: FOR i=103 TO 48 STEP -1 

920 BEEP .02,i-48: PLOT 72,i: DRAW 12C,C 


230 NEXT i 

940 PAUSE 100: BEEP .5,5 

950 CLS : PAPER 7: INK O: PRINT PAPER 63" "j BRIGHT 13"PUESTO DE LIMONADA 
S";y BRIGHT 0;” : 

960 PRINT INK 75 PAPER 13”**” Informe de Ventas ud 


970 PRINT ”"Has vendido "3 INK izjsoldj” copas” 
980 PRINT ”"Has ganado "3; INK 1;jsold*Y*prices”" ptas.” YA 
990 PRINT *"Habias fabricado "jcups;j" y te”,"habian costado "; INK 15cupstlemon 
ade" ptas.” 
993 PRINT *"El alquiler te cuesta ";jrent;" ptas." 
1000 LET prof=sol1d*xprice-cups*+lemonade-rent 
1010 IF SGN prof=-1 THEN PRINT *"Tienes una "j INK 2;"perdida”"j INK 05" de *“5-p 
rofj” ptas.” 
1020 IF prof=0 THEN PRINT *"Te has arruinado!!" 
1030 IF SGN prof=1 THEN PRINT ”"Tienes unas "5; INK 4j"ganancias”j INK 03" de "y 
prof3" ptas.” 
1040 LET cash=cash+prof 
1050 IF RND>.9 THEN LET rent=rent+INT (RNDX10+1) 
1060 IF RND>.9 THEN LET lemcnade=lemonade+i 
1065 BEEP .3,10: PAUSE O: BEEP .5,5 
1067 IF cash<1 THEN GO TO 1500 
1070 CLS : 60 TO 200 
1500 CLS : PRINT  INK 15 FLASH 15” CERRADO  * 
1510 PRINT *”"Estas en bancarrota y debes", "vender tu puesto para pagar las”","deu 
das” 
1520 GO TO 1520 
8999 STOP 
9000 IF cups*tlemonade“=cash THEN RETURN 
9010 INPUT INK 15"No tienes suficiente dinero para"j"hacer tantas"” INK 2j"Cuan 
tas copas quieres hacer "j FLASH 13*?"3cups 
9020 GO TO 9000 
9990 STOP 
9999 INVERSE O: PAPER 7: BRIGHT O: INK O: BORDER 7: CLS : LIST : RETURN 
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Mandala*Damas*4 en raya*Othello*Master Mind*Simon*Tic-Tac-Toc. 


MANDALA 


Este juego es parecido a las Damas. Tus fichas son las de forma circular, y 


debes jugar contra el ordenador que lleva fichas azules parecidas a los caballos 
de ajedrez. 


Te mueves en diagonal como en las damas, pero ahora bien, no valen saltos 
múltiples; no puedes comer más que una ficha por jugada. Puedes moverte en 
cualquier dirección, hacia adelante y hacia atrás, !pero siempre en diagonal!. 


Las fichas se colocan al principio en las esquinas del tablero. Vence el que 
antes le coma siete fichas al contrario. Cuando el ordenador vea que no tiene 
nada que hacer, se rendirá y te dará la partida por ganada. 


Cada ficha está formada por cuatro células diferentes. Si no te gustan las fichas, 
puedes definir las tuyas propias. 


Para mover tus fichas introduce un número de cuatro cifras: 

Las dos primeras cifras son la posición de la ficha que quieres mover. Primero 
la coordenada X (indicada por la línea horizontal) y luego la coordenada Y 
(indicada por la línea vertical). 


Las dos cifras siguientes indican la casilla a la que te quieres mover y le dan 
la misma forma que las anteriores. 


GRAFICOS U.D.G. 


4335 OS 


10 REM %XX MANDALA XX 

20 GO SUB 9000 

3O GO SUB 8000 

40 GO SUB 27000 

S0 GC SUB ¿4000 

60 IF HUM=? THEN PRINT AT 19,05 INK 23 FLASH 1;"TU GANAS": STOP 

70 IF COMP=7 THEN PRINT AT 19,0; INK 23 FLASH 1;"YO GANO” 

80 GO TO 40 

800 FOR Z=8 TO 1 STEP -1 
6000 FOR Z=88 TO 11 STEP -1 
6020 IF A(Z)=C THEN GO TO 6050 
6030 NEXT Z 
6040 GO TO 64200 
6050>LET Y=-11 
£055 IF Z+Y>88 OR Z+Y<11 OR Z+2*Y>88 OR Z+2X*Y<11 THEN GO TO 6070 
6060 IF A(Z+Y)=H AND A(Z+2%XY)=E THEN GO TO 6100 
6070 LET Y=-9X(Y=-11)+9X%(Y=-9)+10*(Y=11)+(Y=100) 
6080 IF Y<>50 THEN GG TO 4635 
6025 NEXT 2 
6090 CO TO 6200 
61009 LET A(Z)=E: LET A(Z+Y)=E: LET A(Z+2*Y)=C: LET COMP=COMP+1i 
6190 PRINT AT 2,225 INK 15"COMP.: "5COMP 
$150 LET F=INT ((Z+Y)/10): LET G=Z+Y-10%F 
6170 PRINT AT 2%G,2XF3" "¡AT 2X*G+1,2xF53" ” 
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6172 LET F=INT ((Z+2xXY)/10): LET G=Z+2*Y-10%F 

6174 REM AB Y CB SEGUIDO 

6176 PRINT  INK 13AT 2%XG,2XF;"AB"sAT 2%G+1,2*F;"CD": REM AB CD EN MODO G 
6180 LET F=INT (Z/10): LET G=Z-10%F 

6184 PRINT AT 2%G,2XF5" "¡AT 2XG+1,2xXF;"  " 

6190 RETURN 

6200 FOR Z=1 TO 200 

6220 LET K=INT (RND*78)+11 

6230 IF A(K)=C THEN GO TO 6260 

6240 NEXT Z 

6250 GO TO 6500 

6260 LET Y=-11 

6270 IF K+Y<11 OR K+Y>88 THEN GO TO 6220 

6280 IF A(K+Y)=E THEN GO TO 6330 

6290 LET Y=-9X(Y=-11)+9%X(Y=-9)+10% (Y=11)+(Y=100) 

6300 IF Y<>0 THEN GO TO 6270 

6310 NEXT Z 

6320 GO TO 6500 

6330 IF K+2XY>88 OR K+2X*Y>11 THEN GO TO 6400 

6340 IF A(K+2%*Y)=H THEN GO TO 6240 

6350 IF K-2*Y<11 OR K-2XY>98 THEN GO TO 6400 

6360 IF A(K-2%*Y)=H THEN GO TO 6240 

6400 LET A(K+Y)=C: LET A(K)=E: LET F=INT ((K+Y)/10): LET G=kK+Y-10%F 

6430 REM AB Y CD EN LA SIGUIENTE 

6440 PRINT  INK 13AT 2%G,2*F3"AB"jAT 2%G+1,2*F5"CD": REM AB CD EN MODO G 

6450 LET F=INT (K/10): LET G=K-10%F 

6470 PRINT AT 2%G,2xXF5" "¡AT 2%G+1,2xF;"  ” 

6480 RETURN 

6500 FOR G=1 TO 200 

6510 LET K=INT (RNDX78)+11 

6520 IF A(K)=C THEN GO TO 6600 

6530 NEXT G 

6540 PRINT AT 0,05 FLASH 15 INK 23" ME RINDO...": STOP 

6600 IF A(K-11)=E THEN LET Y=-11: GO TO 4400 

6620 IF A(K-9)=E THEN LET Y=-E: GO TO 6400 

6640 GO TO 6540 

7000 INPUT FLASH 13 INK 1]"ENTRE JUGADA DE LA FORMA /3344/";A$ 

7010 IF A$="S" THEN STOP 

7030 IF LEN A$<>4 THEN GO TO 7000 

7050 LET A1=VAL AS(1): LET A2=VAL AS(2): LET B1=VAL A$(3): LET B2=VAL A$(4) 

7070 LET A(10%XB1+B2)=H: LET A(10XA1+A2)=E 

7080 REM EF Y GH EN LA SIGUIENTE 

7090 PRINT  INK 2;3AT 2XB2,2XB1;"EF"¡AT 2XB2+1,2XB1j"GH": REM EF GH EN MODO G 
7100 PRINT AT 2XA2,2XA13" "¡AT 2XA2+1,2XA13"  " 

7110 1F ABS (Al-B1)=1 THEN RETURN 

7120 LET HUM=HUM+1 

7125 LET A((10XB1+B2*10+A1+A2)/2)=E 

7130 PRINT AT a2+b2,a1+b1)" "¡AT a2+b2+1,a1+b15" " 

7140 PRINT AT 0,225 INK 3;”"Humano: "5hum 

7150 RETURN 

8000 FOR z=8 TO 1 STEP -1 

8060 FOR x=1 TO 8 

8070 IF a(10%z+x)=h THEN PRINT AT 2%x,2%*zj INK 2;"EF"jAT 2XxX+1,2%Z;"GH": REM EF 
GH EN MODO G 

8080 IF A(10%Z+X)=C THEN PRINT AT 2XX,2*Zj INK 15"AB"j3AT 2XX+1,2%Zj"CD": REM AB 
CD EN MODO G 

8090 IF A(10XZ+X)=B THEN' PRINT AT 2%X,2XZj INK 5;"88"3AT 2%X+1,2%Z;"88": REM 8 
8 EN MODO G 

8110 NEXT X: NEXT z 


8130 RETURN 
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9000 DIM A(100) 

9010 LET HK="111314222431334251" 

9020 LET C$="8886776288475665748" 

9030 LET B$="1214161921232527323436384143454752545658616365677274767881838587" 
9040 LET ES="82736455463728172637445336271" 

9050 FOR zw=1 TO 100: LET A(z)=92 NEXT z 

9080 LET H=104: LET C=99: LET B=143: LET E=32 

9100 FOR z=1 TO 9: LET A(VAL H$( TO 2))=H: LET A(VAL C$( TO 2))=C 

9110 LET h$=h8 (3 TO ): LET cái=c$(3 TO ): NEXT z 

9140' FOR z=1 TO 17 


9150 FOR z=1 TO 32: LET A(VAL b$( TO 2))=b: LET b$=b$(3 TO ): NEXT z 

9190 FOR z=1 TO 14: LET A(VAL Es$( TO 2))=E: LET ES=ES$(3 TO ): NEXT z 

9200 LET a(15)=h: LET COMP=0: LET HUM=0 

9210 INVERSE 1 

9400 PRINT AT 0,03" 12345678 "5AT1,17* "AT 18,05" 
"SAT 19,05" 12345678 » 

9410 FOR z=1 TO 17 

9420 PRINT AT 2,15" "¡AT z,18]" ” 

9430 IF 2*INT (2/2)=z THEN PRINT AT z,05z/2jAT 2,1952/2 

9440 IF 2%*INT (2/2)<>z THEN PRINT AT z,0;" *5AT 2,195" * 

9430 NEXT z 

9460 INVERSE O 

9500 FOR x=1 TO 8 

9505 READ As 

9510 FOR y=0 TO > 

9520 READ z : 

9530 POKE USR AS+y,z 

9540 NEXT y 

9550 NEXT x 

9560 DATA "A",0,0,0,0,1,3,7,15 

9570 DATA "B",0,16,96,240,120,240,224,224 

9580 DATA "c”",30,28,0,0,1,1,3,0 

9590 DATA "D",112,112,240,208,208,214,248,0 

9600 DATA "E",0,7,15,31,62,124,120,113 

9610 DATA "f"*,0,224,240,248,124,62,30,142 

9620 DATA "G”,113,120,124,62,31,15,7,0 

9630 DATA "h",142.30,62,124,248,240,224,0 

9990 RETURN 
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DAMAS 


Mediante este programa podrás retar al ordenador a jugar una partida de damas. 


Ten cuidado ya que como el programa es inglés, usa las reglas inglesas del juego. 
Aunque a veces te parezca que se equivoca no es así. 


Asegurate cuando escribas el listado de que trabajas en mayúsculas. 


Cuando hayas comido una ficha, el ordenador te preguntará si puedes comer más; 
constesta 'S' si puedes comer más y cualquier otra ficha si no puedes. El 
ordenador hace sus capturas múltiples automáticamente. 


Aunque el juego del ordenador no es muy bueno, sí es bastante entretenido. 


1 REM XX DAMAS X% 
10 GO TO 4000 
100 PRINT AT 64,11; 
110 FOR a=1 TO 91 STEP 10 
120 PRINT TAB 115 PAPER 1; INK 7jatbía TO a+9) 
130 NEXT a 
140 RETURN 
200 FOR b=1 TO 12 
1000 GO SUB 100 
1010 LET q=0 
1920 FOR b=1 TO 12 
1030 LET c=b(b) 
1040 IF as$(c)<>"c"” AND a$(c)<>"0" THEN GO TO 1200 
1050 FOR x=1+2*(a$(c)="c") TO 4 
1060 LET n=x(x) 
1070 IF as$(c+n)<>"h" AND a$í(c+n)<>"k" THEN GO TO 1180 
1080 1F 2$1c+2X*n)<>" " THEN GO TO 1130 
1090 LET a$(c+2Xn)=a$(c) 
1100 LET a$íc)=" * 
1110 LET aSíc+n)=" ” 
1120 LET b(b)=c+2%Xn 
1130 LET c=-+2%Xn 
1140 IF ->80 THEN GO TO 2990 
1130 GO SUB 100 
1160 LET q=1 
1170 GO TO 1050 
1180 NEXT x 
1190 IF q=1 THEN GO TO 3010 
1200- NEXT b 
2000 FOR b=1 TO 12 
2010 LET c=b(b) 
2020 IF a$(c)<>"c" AND a$(íc)<>"o0" THEN GO TO 2230 
2030 FOR x=1+2*(a$íc)="c") TO 4 
2040 LET n=x(x) 
2050 IF aS$íc+n)<>" " THEN GO TO 2220 
2060 LET y$=as$ 
2070 LET y$lc+n)=y$ (Cc) 
2080 LET y$(c):" " 
2090 FCR a=1 TO 12 
2100 LET d=c(a) 
2210 IF y$(d)<>"h" AND y$S(d)<>"k"” THEN GO TO 2170 
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2120 
2130 
2140 
2150 
2150 
2170 
2180 
2190 
2270 
2230 
22390 
2250 
2240 
2270 
2280 


FOR z=12+2X*(y$(4)="h") TC 4 

LET m=x1z) 

TF yS5ld-m)i>"5" AND yH(d-m)<>"0" THEN GO TG 2160 
IF y*íd-2%m)=" " THEN <C TG 2220 

NEXT z 

MEXT A 

LEY ab=y* 

GC TO 2320 

NEXT X 

NEXT b 

FOR b=1 TO 12 

LET c=b(b) 

IF a$(c)4>"c” AND a$(c)<>"o” THEN GO TC 2360 
FOR x=1*2%*(a$(c)="c") TO 4 

LET n=x(x? 


2290>IF attc+rm)<>” "THEN GO TO 2350 


2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2990 
3000 
3010 
3015 
3020 
3025 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3220 
3250 
4000 


hxX32XhXxhXhXh21hXhXhXhXiRkabcdefgrA”: 


REM 
4010 
4020 
4030 
4030 
4050 
4050 


LET a$!c+n)=at$(c) 

LET a$icr=" * 

LET blb)=c+n 

TF c+n>80 THEN LET as(c+n)="o"” 

GO TO 3000 

NEXT Xx 

NEXT 5 

PRINT AT 17,123"TU GANAS ” 

sTOoP 

ET aSíc)="0" 

GO SUB 100 

INPUT "DESDE ?"3g% 

IF a$="0" THEN STOP 

INPUT "A "38 

IF LEN g$<>2 OR LEN h$<>2 THEN GO TO 3010 
LET a=2: LET b=3: LET c=9: LET d=5 
LET e=6: LET f=7: LET g*=8: LET h=9 
LET i=90-10%VAL g$(2)+VAL gs$(1) 
LET j=90-1OXVAL h$(2)+VAL hs$(1) 

1F i<12 OR í>89? THEN GO TO 3010 
IF ¿“12 OR j>89 THEN GO TO 3010 
IF a$(i)<>"h” AND a$(i)<>"k"” THEN GO TO 3010 
IF e$(j)<>" " THEN GO TO 3010 

LET a$(j)=as(i) 

FOR a=1 TO 12 

IF cla)=i THEN LET c(a)=j 

NEXT a 

IF j<20 THEN LET as(j)="k" 

LET as(i)=" " 

IF ABS (i-j)<12 THEN GO TO 1000 
LET as$((i+j)/2)=" * 

GO SUB 100 

INPUT "PUEDES COMER CTRA VEZ? "3z% 
1F z8(1)="8" OR z$(1)="S" THEN GO TO 3010 
G0 TO 1010 


LET at="Rabcdef3hR8XcXcXcXc87cXxcoXcoXaox7?é6XcXxoXcxcóS X X X X34xX X Xx Xx 43hxhxhx 


XxX X CORRESPONDE A CUADROS NEGROS (8 EN MODO G) 
DIM b(12): DIM c(12): DIM x(4) 

FOR b=1 TO 12 

READ a 

LET b(b)=a 

LET c(b)=101-a 

NEXT b 


REM abcdefgh tienen que estar en minusculas: 


17 
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4070 FOR xX=1 TO 4 

29309 PEAD a 

4090 LET x(x)=a 

4100 NEXT x 

“110 BORDER Ot PAPER 6: CLS 

2120 INPUT "QUIERES EMPEZAR ?”3z% 

3130 IF 2$(1)="S"” OR z$(1)="s" THEN GO TO 3000 
4120 EQ TO 1000 

EC000 DATA 28,24,22,26,33,37,39,35,19,15,17,13 
5010 DATA -11,9,9,11 


4PLOPNDO-0% 
4PIO0PO0D0=10+4 


4 EN RAYA 
El objetivo del juego es conseguir cuatro fichas en línea, tanto horizontal, 
vertical o diagonalmente. El programa usa las reglas standard del juego, por lo 


que lo que no tendrás ningún problema para jugar. 


!Ten cuidado! El programa juega bien, pero a veces, cuanto tú consigues cuatro 
en raya en una línea horizontal, el ordenador no las cuenta. 


SRAFICOS U.D.Os. 


A =A6 WP=CD M/=EF 


1 REM XX CUATRO EN RAYA %x 

10 GO SUB 2000: 50 SUB 3000 

15 DATA 7,15,31,63,127,255,255,255,224,240,248,252,254,255,255,255,255,255,255 
17 DATA 227,63,31,15,7,235,235,255,254,252,248,240,224,128,64,32 

19 DATA 16,8,4,2,1,1,2,4,8,16,32,64,128 

23 RESTORE : FOR N=0 TO 47: READ A: POKE USR "A"+N,A: NEXT N: REM "A" EN MODO 


[o] 


30 REM GRAFICOS DEFINIDOS 
50 DIM M(8,9): FOR N=1 TO 9: LET M(1,N)=3: CET M(2,NM)=3: NEXT ON 
60 LET MI=0: LET TU=0O 


100 CLS : BORDER 0; PRIMT AT 2,0:" "¡ FOR N=1 TO 6: PRINT  INK 2;" 8838898888 
esessass2828822 e 6 9 8. 8£ "8, 8 8 868 8 8 8 8 
8 ": MEXT N: PEM 2 EN MODO G 

105 PPRINT  IMK 23” 2£8288882833838888888388 "“: REM 3 EN MODG G 


78 


110 PAU 

eN 
115 PAU 
120 PAU 
125 PAU 
130 PRI 
134 REM 
135 LET 
137 LET 
140 FOR 
249 REM 
250 LET 
252 1F 


SE 20: FOR N=0 TO 2: PRINT AT N,O5 PAPER S;" 


EXT M 
SE 20: FOR N=2 TO 21: 
SE 20: FOR N=3 TO 21: 


NT AT 0,0; PAPER 33" 
INICIO ALEATORIO 


GO=-1; LET R=RNDX10+1: 


PRINT AT N,O5 PAPER 35;" 
PRINT AT N,275 PAPER S;” 
SE 50: BEEP .5,-20: PRINT AT 0,03 INK 05” PULSA 


IF R>5 THEN LET GO=í 


Z=0: LET D=6: LET FOUND=0: LET MCVE=0 


N=1 TO 900: NEXT NM 
BUCLE PRINCIPAL 


MOVE=MOVE+1: LET GO=GOX-1: 


GN=1 THEN GC TO 300 


IF MOVE>42 THEN GC TC 1100 
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NEXT N 

NEXT N 
UNA TECLA": PAUSE O 
BEEP .25,25 


235 PRINT AT 0,149; BRIGHT 15 PAPER 6; INK 1;"MI JUGADA”: BEEP .25,21 


237 PAU 
260 PRI 
263 LET 
266 1F 

268 30 

270 LET 
273 LET 


2749 IF FOUND=1 THEN GO TO 850 


273 IF 


27€ LET W=INT (RNDX7)+2: 


SE 100 


NT AT 0,14; BRIGHT Oj PAPER 53” E 


SF=1: LET Z=2: LET X3=0 


MOVE<S THEN GO TO 275 
SUB 650 
Z=1: GO SUB 650 


Z=2: IF FOUND=1 THEN LET M(Y1,X1)=0 


X3<>0 THEN GO TO 870 


277 LET Y=2: LET X=w 


280 PRI 


283 CO 
283 PAU 
290 60 
300 PRI 
302 PAU 
305. PRI 


2,3+((X-1)X3)1 "EF": 


NT AT 1,Dj PAPER 5;" 


SUB 400 


SE 100: PRINT AT 1,3+((X-1)%3)53 PAPER 5;" 


TO 250 


NT AT 0,123 INK 135 PAPER 65 BRIGHT 1;"TU JUGADA": 


SE 100: LET SF=0 
NT AT 0,125 BRIGHT 0; 


¡AT 2,Dj3” 


IF M(2,W)<>0 THEN GO TO 275 


PAPER 55" E 


309 LET C=1: LET D=15: LET X=3: LET Y=2: LET Zsi 
NT PAPER 33 INK 05 FLASH 1jAT C,D;"EF";AT C+1,Dj"EF": REM "EF" EN MODO 


310 PRI 


315 PAU 
317 1F 
318 GO 
320 BEE 
325 IF 
326 1F 
330 1F 
331 IF 
335 1F 
336 IF 
340 1F 
241 1F 
345 IF 
350 60 
155 1F 
356 60 
365 GO 
395 G0 
400 REM 
401 IF 


SE 1: LET Z$=INKEYS: IF ZS="" 
Zb="0" OR Z$="8" OR Z$="3" THEN G09 TO 320 
TO 315 


P .2,12: PRINT AT C,D; 
Z$="28" THEN LET D=D+3 
Z$="8" THEN LET X=X+1 
D>24 THEN LET D=24 
Xx>58 THEN LET X=8 
Z$="3" THEN LET D=D-3 
Z4$="3" THEN LET X=X-1 
D¿ó6 THEN LET D=6 

X¿2 THEN LET X=2 
Z%$="0" THEN GO TO 355 
TO 310 


PAPER 35;" 


M(2,X)<>0 THEN GO TO 309 


SUB 400: REM COLOCA 


SUB 700: IF FOUND=1 THEN GO TO 1000 


TO 250 
COLOCA 
M(Y+1,X)=0 THEN 


LET Y=Y+1 


405 IF M(Y+1,X)<>0 THEN GO TO 420 


410 GO 
420 LET 
4950 LET 
435 IF 


TO 401 
M(Y,X)=Z 

A=1: LET B=3 
Z>! THEN LET IN=6 


THEN GO TO 315 


"SAT C+1,D3” 


"5AT 1,3+((X-1)X3)3 INK 15 FLASH 15"EF 
PAUSE 100: REM "EF" EN MODO G 


"AT 2,3+1(1X-1)X3)p"  ” 


BEEP .25,35 
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IF Z=1 THEN LET PAzi 
IF Z=2 THEN LET IN=1 
IF Z=2 THEN LET PA=é 
LET A=A+(Y-1)X3: LET B=B+(X-1)%3 


PRINT  INK IN; PAPER PA5AT A,Bj"AB";AT A+1,B3"CD": 
RETURN 

IF SF=0 THEN RETURN 

PRINT AT 1,D; PAPER S5j3" "5AT 2,D3" ” 


LET D=6+INT (RND*X6)%3 

PRINT  INK 13 FLASH 1;AT 1,D;"EF"jAT 2,D;"EF": 
PAUSE 5: RETURN 

LET N=0: LET TEMP=0 

LET T=M(Y+N,X): 1F T=Z THEN LET TEMP=TEMP+1 
LET N=N+1:* IF Z=T THEN GO TO 535 

IF TEMP>=4 THEN LET FOUND=1 

IF TEMP>2 AND Z=1 THEN LET X3=X 

RETURN 

LET N=0: LET TEMP=0 

LET T=M(Y,X-N): IF T=Z THEN LET TEMP=TEMP+1 
LET N=N+1: 1F T=Z THEN GO TO 3533 


LET N=1 

LET TeM(Y,X+N): 1F T=Z THEN LET TEMP=TEMP+1 
IF TEMP>=4 THEN LET FOUND=1 

IF TEMP>2 AND Z=1 THEN LET X3=X 

RETURN 

LET N=1: LET TEMP=0 

LET T=M(Y+N,X+N)3 1F T=Z THEN LET TEMP=TEMP+1 
LET N=N+1: IF T=Z THEN GO TO 5277 

LET N=O0 

LET T=M(Y-N,X-N): IF T=Z THEN LET TEMP=TEMP+1 
LET N=N+1: IF T=Z THEN GO TO 583 

IF TEMP>=4 THEN LET FOUND=1 

1F TEMP>2 AND Z=2 THEN LET X3=X 

RETURN 

LET N=0: LET TEMP=0 

LET TeM(Y+N,X-N)?: IF T=Z THEN LET TEMP=TEMP+1 
LET N=N+1: 1F T=Z THEN GO TO 6405 

LET N=1 

LET TeM(Y-N,X+N)3. IF T=Z THEN LET TEMP=TEMP+1t 
LET N=N+1: IF T=Z THEN GO TO 620 

IF TEMP>=4 THEN LET FOUND=1 

IF TEMP>2 AND Z=2 THEN LET X3=X 

RETURN 

LET FOUND=0 

FOR Y=2 TO 7: FOR X=2 TO 8 

LET T=M(Y¿X): 1F T=O THEN GO SUB é90 

IF FOUND=i THEN GO TO 800 

NEXT X! NEXT Y 

LET Y=2: RETURN 

IF M(Y+1,X)=0 THEN RETURN 

LET M(Y,X)=Z: GO SUB 700 


IF FOUND=0 THEN LET M(Y,X)=0 
IF FOUND=0 THEN LET M(Y,X)=0 
IF FOUND=1 THEN LET Yi=1 

IF FOUND=1 THEN LET Xi=X 
RETURN 

GO SUB 300: GO SUB 330 

GO SUB 350 

GO SUB 500: GO SUB 575 


REM 


REM 


"ER" 


"AB" Y *CD" 


EN MODO G 


EN MODO 
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715 GO SUB 600 
720 RETURN 
800 IF Zw=i THEN GO TO 675 
802 PRINT AT 1,Dj5 PAPER 35 INK 13"  —"3AT 2,D53" "¿AT 1,3+((X-1)%3)3 INK ij FLAS 
H 13"EF"jAT 2,3+((X-1)%3)] "EF": REM "EF" EN MODO G 
8035 PAUSE 50 
810 GO SUB 450 
815 60 TO 1000 
850 LET FOUND=0: PRINT AT 1,Dj PAPER 5;” —"jAT 2,D3" "5AT 1,3+((X-1)%3)5 FLASH 
15"EF"jAT 2,3+((X-1)3);"EF": PAUSE 100: PRINT PAPER SjAT 1,3+((X-1)X3)3" "¡A 
T 2,3+((X-1)3)3" ": REM "EF"EN MODO G 
860 GO SUB 400 
865 PAUSE 100: GO TO 250 
870 LET X=X3: GO TO 850 
1000 IF Z=1 THEN LET TU=TU+1 
1002 BEEP .5,3: BEEP .2,6: BEEP .5,9 
1005 IF Z=2 THEN LET MI=MI+1 
1010 IF Z=w1 THEN PRINT AT 0,113 BRIGHT 15 PAPER 63 INK 15 FLASH 13"GANASTE" 
1015 IF Z=2 THEN PRINT AT 0,113 BRIGHT 1; PAPER 63 INK 15 FLASH 15"GANE =y 
1020 FOR N=i TO 1000: NEXT N 
1025 PRINT AT 0,115 PAPER 5;"” y 
1027 PRINT AT 11,15 PAPER 53 INK 03"YO"jAT 13,2;¡MIjAT 11,283 "TU"5¿AT 13,29¡TU 
1030 LET Az=1! LET B=3 
1035 FOR X=2 TO 8: FOR Y=2 TC 2 STEP -1 
1037 LET M(Y,X)=0 
1040 PRINT PAPER 75AT Z+((Y-1)%X3),B+((X-1)X3)3"  "5AT A+1+((Y-1)43),B+((X-1)%3) 
1” » 
1045 LET R=INT (RNDX12)+1: BEEP .02,R 
1050 NEXT Y: NEXT X: PRINT AT 1,63 PAPER 35;" “AT 2, 
63" ” 
1055 60 TO 135 
1100 PRINT PAPER S; INK O5AT 0,9;"ES TABLAS" 
1105 FOR K=1 TO 775: NEXT K 
1110 PRINT AT 0,03 PAPER 5;” Ñ 
1115 60 TO 1030 
2000 PAPER 6: INK 1: BORDER 6: CLS : PRINT AT 9,8;"CUATRO EN RAYA! :"; PAUSE 300: 
RETURN 
3000 BORDER 7: PAPER 7: INK O: CLS 
3005 PRINT " Derrota al ?”*SPECTRUM””? ceonsi-"*'"guiendo cuatro fichas en la-_mis-* 
"*ma linea vertical, horizontal o diaegonal."**"Pulsa 8 para ir a la derecha”****"p 
ulsa S para la izquierda"””* "pulsa O para dejar caer la ficha" 
3010 PRINT AT 18,5; FLASH 1; "PULSA UNA TECLA": PAUSE O: CLS 2 RETURN 
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OTHELLO 


Este juego también llamado REVERSI fue uno de los favoritos en la época 
victoriana inglesa. 


El juego se realiza en un tablero de ajedrez. Al principio del juego y en el 
centro del tablero, hay cuatro fichas, dos de cada bando. 


Para mover coloca tus fichas al lado de las del ordendor, de modo que alguna o 
algunas fichas del ordenador queden entre dos fichas tuyas. Cuando esto ocurra, 
sus fichas cambiarán de color y pasarán a ser tuyas. Gana el juego aquel que 
tenga en el tablero más fichas suyas. 


El programa usa para jugar los conocimientos que tiene de las mejores posiciones. 
Esta información está contenida en las cadenas Y$ y Z$ (en las líneas 1000 y 
1010). 


Estudia el programa detenidamente y podrás aprender mucho de él. 


Para mover tus fichas teclea la posición en que quieras colocar una. Si no 
puedes mover, teclea "0". 


1 REM XX OTHELLO 3% 
10 60 TA 1000 
20 LET b$="p": LET cé$="x" 
30 FOR k=1 TO 60 
40 LET y=VAL yS(k)X%2: LET z=VAL z$5(k)x2 
SO IF SCREENS (y,z)<>" " THEM GC TO 200 


JUEGOS DE TABLERO 


60 
70 
80 
90 
100 
104 
110 
120 
130 
135 
140 
145 
1530 
160 
200 
300 
500 
510 
=20 
530 
540 
600 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1050 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


LET J=0 

FOR c=-2 TO 2 STEP 2 

FOR d=-2 TO 2 STEP 2 

LET e=0: LET u=y? LET v=z 


IF SCREENS (u+c,v+d)<>b$ THEN GO TO 120 


FOR x=1 TO 8 


LET e=-1: LET u=u+c: LET v=v+d: GO TO 100 
IF SCREENS (u+tc,v+d)<>c% OR e=0 THEN GO TO 150 


PRINT AT u,vjcs$ 

IF y=u AND z=v THEN GO TO 150 
LET u=zu-c: LET v=vw-d: LET j=1 

GO TO 130 

NEXT d: NEXT c 

IF b$="x" OR j=1 THEN GO TO 500 
NEXT k 

IF j<>0 THEN STOP 

IF b$="x" THEN GO TO 20 

LET b$="x": LET cé$="0o0" 

INPUT "COORD y",9g!: INPUT "COORD x”,h: 
LET y=9*2: LET z=hxX2 

IF y=0 THEN GO TO 20 

GO TO €“0 

sTOP 


IF h=9 THEN 


SO TO 3520 


LET y$="188161386138633641581548656435346457223277426357712182877272" 
LET z$="8811161683833636848431154353465627753367436257224128771281772" 


LET x$=" . 
PRINT "$ 12345607 a3óe 
FOR x=1 TO 8 

PRINT x% 


PRINT x3" 888883888 "5x: REM 8 EN MODO G 


NEXT x 
PRINT x$ 
PRINT "R 12345678Rñh" 


PRINT AT 8,83"x"5AT 8,10;5"0"5AT 10,83”"0"jAT 10,105"x" 


INPUT "QUIERES SALIR ? (S-SI)",gqs$ 
LET b$="0" 

IF q$="s" THEN GO TO 500 

GO TC 20 
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MASTERMIND 


Seguramente conocerás este juego. El ordenador generará un código de colores 
secretos. Tú tienes que averiguar, usando tu capacidad de pensar, qué código 
tiene el ordenador. 


Al ordenador le darás diferentes códigos, y él te dirá cuantas fichas de ese 
código coinciden en posición y en color con las del código que el ordenador ha 
generado; también te dirá cuantas de esas fichas estan mas colocadas, es decir, 
existen en el código del ordenador pero no en ese lugar. 


Las teclas que usas para jugar son: 
Z.- Cursor a la izquierda. 

M.- Cursor a la derecha. 

SP.- Espacio para poner la ficha. 


Para dar color a una ficha se aprieta el número que corresponde al color elegido. 


1 REM X%% MASTERMIND X% 

S PRINT *Z mueve el cursor a la izquierda"”**"M mueve el cursor la derecha”'” 
"SPACE entra la eleccion"”*"Una tecla de color cambia el co-lor delante del curs 
or" 

10 INPUT "cuantos agujeros (3 a 9) ?"ja!: IF a<x3 OR a>9 THEN GO TO 10 
20 FOR N=0 TO 2? 

30 READ X: POKE USR "A"+N,X 

40 NEXT N 

50 DATA 255,1935,129,129,129,129,195,255 

40 BORDER 1: PAPER 3: INK O: CLS : LET As$=" ” 
70 FOR N=i TO 14: PRINT AT 15-N,1jN: NEXT N 

80 FOR Nz=1 TO 17: PRINT AT 8-N,3jAS8(1 TO A): NEXT N 

90 FOR N=0 TO 7: READ X: POKE USR "B"+N,X: NEXT N: LET Gx=i 
100 DATA 0,0,24,60,60,24,0,0 

110 DIM B(A): FOR N=1 TO A: LET B(N)=INT (RNDX6)+1: NEXT N 
120 LET H=1: DIM C(A) 

125 PRINT FLASH 1jAT 21,H+23]""" 

130 PAUSE O: LET Af=INKEYS 

135 FOR N=O TO 50: NEXT N 

140 PRINT AT 21,H+25" * 

150 LET H=H+(INKEYS="M" AND H<A)-(INKEYS="Z" AND H>1) 

160 PRINT FLASH 1;AT 21,H+23""" 

170 IF A$S=" " THEN 60 TO 210 

180 IF CODE A$<48 OR CODE A$>5353 THEN GO TO 130 

185 BEEP .03,CODE A$-48: LET C(H)=VAL AS 

190 PRINT PAPER VAL ASj¡AT 15-G,H+2j¡CHRS 1449 
200 GO TO 130 
210 LET W=0: LET UzO 
211 DIM D(A): FOR N=i TO A: LET D(N)=BIN): NEXT N 
215 PRINT AT 21,H+25;"”" ” 
216 FOR S=1 TO A 
217 1F C(S)=B(S) THEN LET Us=sU+1: BEEP .01,10: LET C(S)=100:% LET D(S)=50 
218 NEXT S 
220 FOR S=1 TO A 
230 FOR T=i TO A 
240 IF C(S)=D(T) AND S<>T THEN LET W=W+1: BEEP .01,20: LET D(T)=89: LET C(S)=9 
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250 NEXT T: NEXT S 

290 PRINT AT 5-G,A+35: LET ANTU=U 

300 IF U=O THEN GO TO 330 

310 PRINT INK O5CHR*$ 145; 

320 LET U=U-1: GO TO 300 

330 1F W=0 THEN GO TO 360 

340 PRINT — INK 7j¡CHRS$ 145; 

350 LET W=W-1: GO TO 330 

360 IF ANTU=A THEN GO TO 410 

370 LET G=G+1 

380 IF G=15 THEN GO TO 400 

390 GO TO 120 

400 PRINT AT 20,A+61] "MALA SUERTE" 

401 FOR N=7 TO O STEP -1: BORDER N: BEEP .2,N%*2: NEXT N: BORDER 7: GO TO 420 
410 PRINT "FELICIDADES” 

411 FOR N=0 TO 7: BORDER N: BEEP .2,NX2: NEXT N: BORDER 7 

420 FOR N=1 TO A: PRINT PAPER B(N)5AT 17,N+2;5CHRS$ 144: NEXT N 
430 INPUT "OTRA ? <S/N>"3AS 

440 IF Afi="N" THEN STOP 

450 RUN 


SIMON 


Este juego es uno de los primeros que se hicieron en ordenador. 


El ordenador va a darte cuatro tonos y cada tono va con un color, teniendo 
además un número que lo representa. 


Al principio el ordenador eligirá un númro y te enseñará un tono y un color; 
luego tu deberás marcar ese número. A continuación el ordenador elige otro 
número, y te enseñará los dos, igual que lo hizo antes con el primero. Tu 
deberás repetir los dos números, tras lo cual, él te enseñará otra vez los dos 
seguidos de uno nuevo. 


El juego se prolongará así hasta que falles. 


Cuando aparezca un número repetido tecleado dos veces, si mantienes la tecla 
apretada el ordenador entenderá que sólo la has apretado una vez. 


1 REM %% SIMON 4% 
7 DIM B(11): DIM C(11): DIM D(11) 

10 LET BS=" . 
15 FOR R=i TO 3: LET BS=BS+BS: NEXT R 

30 RANDOMIZE 

33 FOR G=1 TO 4 

40 READ C16) 

50 READ D(G) 

60 NEXT G 

70 FOR C=1 TO 11 

80 LET B(C)=INT (RNDX4)+1 

90 NEXT C 

95 LET X=1 

100 FOR Qwi TO X 

110 PRINT AT C(B(9)),D(B(Q))j INK B(Q);B(Q);BS 

120 BEEP .15,7XB(0) 


JUEGOS DE TABLERO 


125 CLS 

130 NEXT € 

150 FOR Z=1 TO X 

155 IF INKEYS<>"" THEN GO TO 135 

160 LET AS=INKEYS: IF A$="" THEN GO TO 160 

170 LET A=VAL AS 

180 PRINT C(A),D(A)3 INK AjAjBS 

190 BEEP .14,7%A 

200 IF A<>B(Z) THEN GO TO 500 

210 CLS 

220 NEXT Z: CLS 

230 FOR G=1 TO 100: NEXT G 

240 IF X<11 THEN LET X=x+1: GO TO 255 

250 PRINT AT 4,03 FLASH 13 INK RND*ó5 "LO CONSEGUISTE!!": GEO TO 255 
500 PRINT AT 4,03 FLASH 13 INK RND%ó6+ "FALLASTE.... TUS PUNTOS SON *"3X-1: GO TO 
255 

780 DATA 0,0,0,13,13,0,13,0 


JUEGOS DE CARTAS 


Veintiuna*Siete y Media. 


VEINTIUNA 
Este programa necesita ejecutarse en un Spectrum 48K. 


El objetivo del juego es coger cartas hasta que te quedes con unas que sumen 21 
o te plantas en menos; no te debes pasar ya que entonces pierdes. Si tus dos 
primeras cartas suman 13 o menos, entonces las puedes cambiar por otras dos. Un 
as puede valer tanto 11 como 1. Las figuras valen 10 puntos. 


El ordenador empieza barajando las cartas; son 5 barajas de 52 cartas, y por 
ser tantas, tarda un poco. Una vez barajadas, el ordenador reparte dos a cada 
uno (dos para él y dos para tí). 


Después de esto, el ordenador te preguntará que cuanto quieres apostar. La 
apuesta debe ser entera. Después de apostar, el ordenador da la vuelta a las 


cartas y entonces las podrás ver. 


Ten cuidado al escribir el listado ya que lo debes hacer en minúsculas; el 
programa sólo examina los datos en minúsculas. 


GRAFICOS U.D.G. 


é=A YU=5 4=C =D II=E %=F 


1 REM %X VENTIUNA XX 
6 LET m=100: LET u=1: LET db=0: LET c2=0 
10 FOR x=1 TO 6 
20 READ ps$ 
20 FOR $=0 TO 7 
40 READ a: POKE USR p+f,a 
50 NEXT f: NEXT x 
55 REMABCDEF EN MODO 6 
€£0 DATA "A",BIN 00011000,BIN O0111100,BIN O1111110,BIN 11111114,BIN 11111111,B 
IN O1111110,BIN OO0111100,BIN 00011000 
70 DATA "B",BIN O1100110,BIN 1111111:,BIN 11111141,BIN 11111114,B3N 11111111,B 
IN O1111110,BIN O0111100,BIN 00011000 
80 DATA "C",BIN 0011009,BIM OO111100,BIN 0001:000,BIN O1i11110,BIN 111114114,bB1 
N O1111110,BIN 00011000,BIH ON111100 
82 DATA "D",BIN COC:10CO0,BIN OO0111100,BIN O1111:10,BIN 111141111,B1N 114111141,B 
IM O1011010,BIN 00011000,BIN 00111100 
95 DATA "E",O,BIN O1011110,EIN O1010010,BIN O10910010,BIN O1010010,BIN 01010010 
,BIM O1011110,0 
88 DATA "F",BIN 10010010,BIN O0100100,EIN 01001001,BIN 109010010,biN V0106100,B 
TM O1001001,BIN 10010010,BIN 00100100 
90 BORDER 7: PAPER 2: INK 0: CLS 
95 GN SUB ?n00 
102 BORTER 4: PAPER 6: IMK O: CLS 
103 REM 32 EN MODO G 


104 PRINT AT 10,10;"£8228888288888388": PRINT PAPER 7;jAT 1i1,10;”8 Ss” 
106 PRINT PAPER 7;AT 12,10;5"3 "3 FLASH 238T 12,12;3"BARAJANDO"; FLASH 0" 8" 
1023 PRINT PAPER ?7;AT 13,10;”8 "3AT 14,10;"828389888888338898" 


110 DIM 5b(260): DIM a$(260,2): DIM 5113): DIM us$(4) 
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JUEGOS DE CARTAS 


120 
130 
140 
150 
160 


FOR x=1 TO 209 STEP 52 

LET y=1 

FOR z=x TO (x+51) 

LET bíz)=y-(13 AND y>13)-(13 AND y>26)-(13 AND y>39) 

LET a$(z)=("2B" AND y<14)+("0D” AND (y>13 AND y<27))+("2A" AND (y>2é AND y< 


40))+1”"0C" AND y>39): REM A BC D EN MODO G 


170 
180 
190 
200 


210 
220 
230 
240 
250 
260 
270 
275 
280 
290 
300 
310 
312 
314 
316 
318 
320 
322 
324 
326 
330 
335 
340 
345 
350 
360 
370 
380 
390 
392 
394 
LASH 
396 
400 


LET y=y+1 

NEXT z 

FOR a=1 TO 2 

FOR z=x TO (x+51) 


LET b=b(z): LET biza$(z): LET c=INT (RND4S52)+x 
LET b(z)=b(c): LET bí(c)=b 

LET a$(z)=aS(c): LET a$(íc)=b$ 

NEXT z: NEXT a: NEXT x 

FOR x=1 TO 13 

IF x>»1 AND x<10 THEN LET b$(x)=STRS x 

IF x=i THEN LET b$(x)="A” 

IF x=10 THEN LET b$(x)="E": REM E EN MODO G 

IF x=11 THEN LET b$(x)="J" 

IF x=12 THEN LET bS$(x)="Q” 

1F x=13 THEN LET b$(x)="K" 

NEXT x 

BORDER 4: PAPER 4: INK O: CLS 

GO SUB 3250 

PRINT AT 1,2;"TUS CARTAS: “jAT 10,2;"MIS CARTAS: " 
LET p=-1: LET q=p: FOR az=i TO 2 

LET p=p+1: LET q=p! FOR x=2 TO 11 STEP 9: GO SUB 1000 
NEXT x: NEXT a 

LET x=2 

GO SUB 3000 

LET ciwO: LET n=0: LET ni=0: LET s=u: LET x1i=u 
FOR uz=xi TO x1+2 STEP 2 

LET ciz=c1i+1: GO SUB 680 

NEXT u: LET u=x1i+3 

IF n=21 OR niíz=21 THEN IF ci=2 THEN GO TO 760 
IF n<22 OR n1i<22 THEN GO TO 380 

PRINT AT 9,115"MAS DE 21!'!'": LET t=22: GO TO 490 
1F ni1>21 AND n<22 THEN LET niz=n 

IF ciíiz5 THEN GO TO 780 

IF nív=13 OR ni<=3 THEN GO TO 400 

PRINT AT 3,c1X6-13" TE PARAS”*35AT 4,c1X6+1;"0";AT 5,c1iXé6-1j" OTRA CARTA" F 
1jAT 7,c1xX6+2;"”"?" 

GO TO 405 

PRINT AT 3,c1*X6;"”TE PARAS";AT 4,c1%X%6; "OTRA CARTA"j3AT 5,c1*ó+1;5"0"j3AT 8,cix*kó 


"CAMBIAS LAS CARTAS”3 FLASH 1j;AT 9,c1X*6+2;"?" 


405 
410 
420 
430 
440 
4530 
454 
45€ 
450 
462 
464 
466 
268 
470 
350 
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IF INKEYS$="" THEN GO TO 405 

IF INKEY$="p" THEN (GO TO 480 

IF INKEYS$="0" THEN GO TO 470 

IF INKEYS="c" THEN GÓ TO 450 

60 TO 392 

IF n>13 AND ni>13 THEN GO TO 394 

PAUSE 10 

FOR a=2 TO 8: PRINT AT a,0;3" ": NEXT a 
LET p=0: LET q=1: GO SUB 1000 

LET n=0: LET ni=0: LET x1=su+1: LET c1=0 

FOR u=x1 TO x1+1 

LET cí=c1+1: GO SUB 680 

NEXT u: LET u=x1+1: GO TO 350 

LET u=su+1i: PRINT p=c1: LET q=p: GO SUB 1000: LET ci=c1+1: GO SUB 680: 60 TO 


JUEGOS DE CARTAS 


480 
481 


PRINT AT 9,113"TE PARAS" 
LET ts=" *: PRINT AT 3,c1XxS3!1$;AT 3,c1X63t$;AT 5, cikó6jté;AT ó6,c 


1X6F BAT 2,C1XGFAS3AT 8,C1XE3t58 


485 
486 


490 
=00 
“20 
330 
3534 
536 
540 
3550 
bei] 
560 
370 
580 
390 
£00 
610 
614 
616 
£20 
LET 
630 
640 
650 
660 
670 
34 
680 
Ss 
682 
684 
685 
636 
£89 
€90 
.u. 
692 
694 
696 
698 
un 
699 
700 
702 
703 
710 
720 
725 
730 
740 
750 
760 
770 
780 
790 
800 
804 


IF n1(22 AND ridn THEN LET t=n1 
TF n<22 AND n>=pn1 THEN LET tz 


LET h=u 
LET x=11 
LET n=0: LET n1=0: LET c2=0 

FOR u=s8+1 TO s+3 STEP 2: LET c2=c2+1; GO SUB 680: NEXT u; LET u=h 

PAUSE 100 

IF t=22 THEN GO TO 830 

IF t=21 AND ci=2 THEN IF rii=3 THEN GO TO 610 

IF t=21 THEM 1F cí=2 AND n<>21 AND ni<>21 THEN GO TO 790 

IF n>21 AND n1>2 THEN PRINT AT 13,1;”LA CASA SE PASO! ! ” 

IF n>21 AND n1>21 THEN 659 TO (790+(40 AND t>21)) 

IF c2=S THEN PRINT AT 18,13"S CARTAS DE MANO ": GO TO 830 

IF ci=5 AND t>22 THEN GEO TO 660 

IF (nt%>13 AND ni<>13) OR (RNIDXc2)>=1 THEN CO TO 630 

PRINT AT 13,11!1;”"PIERDE LA CASA" 

PAUSE 150 

FOR az=11 TO 17: PRINT AT a,0j3" ": NEXT a 

LET n=0: LET ni=0 

LET p=O: LET q=1: GO SUB 1000: LET xiz=zu+1: LET c2=c2+1: GO SUB 680: NEXT u: 
u=xi+i: GO TO 534 

IF n=21 OR ni=21 THEN GO TO 850 

IF n1>=18 AND ni<22 OR n>=18 THEN GO TO 850 

IF n=16 OR n=17 THEN  —1F (RNDXc2)<1 THEN GO TO 850 

PRINT AT 18,11;"LA CASA COGE CARTAS" 

LET p=3c2: LET q=p: G09 SUB 1000: LET c2=c2+1: LET u=u+1: GO SUB 680: GO TO 5 


IF u>260 THEN LET m=m+b: CLS : PRINT AT 10,5j"BARAJA ESTA VACIA": GO TO 3i 


LET g=(c1 AND x=2)+(c2 AND x=11)-i 

LET i=VAL (a$(u,l1)): LET htra$(u,2) 

PRINT AT x,9*é6; PAPER 73 INK 0O;3d% 

INK i 

REM “3 EN MCDO GO 

PRINT AT x+1,(9%6)3 PAPER 75 INK 053"5"35 INK ijb$(blu2?)j" "jb$ibíu))5 INK 05 


PRINT AT x+2,(9%6);5 PAPER 75 INK 0;"5"3 INK i5h$5” "5h%5 INK 055" 

PRINT PAPER 7;AT x+3,(g9%X6)3 INK 0;"5*";" "3 INK 03"5" 

PRINT AT x+4,(9%6)3 PAPER 73 INK 0355 INK ijh$S;” "5h+*%; INK 053"5" 

PRINT AT x+5, (g*6)3 PAPER 73 INK 03"5"3 INK i¿jb$(b(u));5" "jb$iblu))5 INK O5 


PRINT PAPER 73 INK O5AT x+6,9%X6;+4$8 

IF bíu)=11 THEN LET b(u)=10 

IF b(u)=12 THEN LET b(u)=10 

IF b(u)=13 THEN LET b(u)=10 

LET n=n+b(u) 

IF b(u)=1 THEN 1F n1+11>21 THEN LET ni=ni+1 

IF bíu)=1 THEN IF ni+11<=21 THEN LET nisn1+11 

IF bílu)<»i THEN LET ni=ni+b(u) 

INK O 

RETURN 

PRINT AT 9,115 "VENTIUNA!" 

LET t=21: G0 TO 490 

PRINT AT 9,11;”5 CARTAS DE MANO”: GO TO 485 

PRINT FLASH 1;AT 20,4;"TU GANAS!! ": LET m=m+2Xb: GO SUB 3250 
IF m=0 THEN PRINT AT 21,15;"ESTAS ARRUINADO”: PAUSE 250: GO TU 4060 
PRINT AT 21,15;"OTRO JUEGO?" 


JUEGOS DE CARTAS 


206 IF INKEYS$=”"" THEN GO TO 806 
210 IF INKEYS<>"n" THEN 69 TOC 820 
8194 IF db>O THEN 50 TO 4010 
21é6 PPRINT AT 20,43 ("GANASTE” AND m>100); ("PERDISTE" AND m<100)5 ("QUEDASTE IGUAL 
” AND m=10017" "¡ABS (m-100)+(m AND m=100): PRINT AT 21,143" ": STO 
P 
820 LET u=u+1: 60 TO 312 
£30 PRINT FLASH 1;AT 20,4;"GANO LA CASA" 
3240 50 TO 800 
250 PRINT AT 18,11;3"LA CASA SE ESTANCA" 
860 LET tízn 
870 IF ni»n AND n1<22 THEN LET ti=ni 
882 IF t>21 THEN GO TO 830 
8%0 IF t1<22 AND t1>=t THEN GO TO 830 
900 62 TO 790 
1000 LET ¿$="43337": LET es="SFFFS”: LET f$="13332" 
1020 FOR y=p TO 3 
1030 PRINT PAPER 7;AT x,yX6;d5 
1040 FOR z=1+x TO S+x 
1050 PRINT PAPER 73AT z,yXójes$ 
1060 NEXT z 
1064 PRINT PAPER 7;AT x+6,yX6314% 
10564 PAUSE 50 
107) NEXT y 
1080 RETURN 
2000 BORDER 7: PRINT *TAB 3;"EL OBJETIVO DEL JUEGO ES EL DE CONSEGUIR QUE LA SU 
MA DE TUSCARTAS SEA 21 O QUEDARTE LG MAS CERCA POSIBLE, SIN PASARTE, DE ESTACIFR 
A.” 
2005 PRINT *TAB 33"AL PRINCIPIO TENDRAS DOS CAR-TAS Y SI ESTASSUMAN TRECE EN- T 
ONCES TIENES LA POSIBLIDAD DE CAMBIARLAS POROTRAS DOS." 
2010 PRINT *TAB 3: "DESPUES TIENES DOSOPCIONES: "*"- O PEDIR OTRA CARTA"*"- O PARA 
RTF CON ESAS CARTAS" 
2015 PRINT *TAB 3;3"DESPUES JUEGA EL ORDENADOR Y EL QUE SE QUEDE MAS CERCA DE 21 
ES EL QUE GANA.” 
2020 PRINT *TAB 3;3"SI EN UNAPARTIDASEACABA LA BARAJA,SE DEVUELVENLAS APUESTAS. "5 
R153AT 0,0:"YEL JUEGO ACABA." 
2030 PPINT R1;j"UNATECLA PARA CONTINUAR" 
2040 IF INKEY$="" THEN GO TO 2040 
2050 C1S : PRINT TAB 3;"AL EMPEZAR TENDRAS 100% QUE IRAS APOSTANDO A TUS CARTAS. 
LA MAIMA APUESTAES DE 500% Y LA MINIMA DE 15%." 
2060 PRINT *TAB 3;"SI SE TE GASTA ELDINERO EL CASINO TE DARA UN CREDITO DE HA 
STA 500$ Y SI SE TE GASTAN ES-TAS TAMBIEN, ENTONCES TE ECHAN A LA CALLE. * 
2070 PPINT Ri;"UNA TECLAPAR EMPEZR" 
2080 IF INKEY$="" THEN GO TO 2080 
2090 RETURN 
3000 PRINT AT 4,12;"CUANTO APUESTAS 2” 
3020 PRINT AT 6,175"*”"3 FLASH 1;5"?2"3 FLASH O 
3030 LET b=1 
3040 1F INKEYS$“>"" THEN GO TO 3040 
3050 IF INKEYS$="" THEN GO TO 3050 
3060 LET u=CODE (INKEYS) 
3070 IF (w48 OR w>57) AND (w%>13) THEM GO TO 3040 
3080 IF w»=13 THEN GO TO 3200 
3090 LET w$!'b)=CHRS w* 
3100 PRINT 247 6,17+b3u9$(b);3 FLASH 13">2" 


3110 LET b=b+1 
3120 GO TO 3040 


23200 PRINT AT 6,17+b3” " 

3ZO0S LET zH=*» 

3210 FOR z=1 TO b-1: LET 2z%=z8+w$(2)! NEXT z 
3220 LET b=VAL z%$ 


90 


JUEGOS DE CARTAS 


3230 
3240 
3244 
4 De 

3246 
3250 
3260 
4000 
4010 
4020 
PARA 
a0240 
4050 
4060 
4070 
.K.": 
4080 
4090 
4100 
4105 
4110 
4115 
4120 
4122 


IF b>m OR b>500 OR b<1 THEN GO TO 3000 


LET m=m-b 
PAUSE 150: PRINT AT 4,12" "jAT 5,123" “¡AT 6,1 
PRINT PAPER 05 INK 75AT 20,4; "APUESTA= $"j3b 


PRINT PAPER 0; INK 7;AT 0,14;5"TIEMES: "m5 PAPER 343" 

RETURN 

PAPER 7: CLS 

IF db5 THEN GO TO 4050 

PRINT AT 10,2;3"ME TEMO QUE NO TE PODEMOS DAR MAS CREDITO, Y TENDRAS1O DIAS 
PAGARNOS LAS $";3db*100;3" QUE AHORA NOS DEBES." 

STOP 

PRINT AT 10,S5;"QUIERES UN CREDITO DE $100?" 

IF INKEYS$="" THEN GO TO 4060 

IF INKEYS$<>"n" THEN LET db=db+1: LET m=100: PRINT AT 11,195" "¿AT 13,10;"0 
FOR x=1 TO 50: NEXT x: GO TO 820 

IF db>O THEN GO TO 4100 

CLS : STOP 

LET o=m-dbxX*100 

PAUSE 100: CLS 

IF 0>0 THEN GO TO 4200 

IF m=0 THEN PRINT AT 11,0;"O0.K. PERO *3: GO TO 4124 

PRINT AT 10,35;"MOSOTROS TOMAMOS LOS $"¿m 

PRINT AT 11,0;"AHORA, PERO ”; 


4124 PRINT "TODAVIA NOS DEBES $"¡ABS 0;",” 

4126 PRINT AT 12,0;” Y ESPERAMOS QUE NOS LAS DEVUELVAS EN UN PLAZO DE 10 DIAS.” 
4130 STOP 

4200 PRINT AT 12,2;"COGEMOS LOS $"jdbx*100;” QUE NOS DEBES, Y TE QUEDAN TODAVIA $ 
"op”.” 

4210 STOP 

6685 PRINT AT x,93d$ 


TIENES: 5490 


22] ]4+ 
331188 


TE PARAS 
Ss 


mm” 


LA CA 
APUESTA= $410 


SA COGE CARTAS 
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JUEGOS DE CARTAS 


SIETE Y MEDIA 


Este es un sencillo juego de cartas que seguramente ya conocerás. Deberás 
aproximarte lo más posible a 7 y media pero sin pasarte, ya que en ese caso 
perderás. 


Todas la cartas valen su número. Sota, caballo y rey valen medio. 


Ejecuta el programa y diviértete. !NO HAGAS TRAMPAS! . 


1 REM %% SIETE Y MEDIA Hd 

2 CLS 

30 DIM A(10,4): DIM T(2) 

40 LET Pi=0: LET P2=0 

50 INPUT "QUIEN SALE? TU(1) O YO(2)"3S 
55 LET Z1=0: LET Z2=0: LET T(1)=0: LET T(2)=0 
£0 FOR I=i TO 10 

70 FOR J=1 TO 4 

80 LET A(1,J)=0 

90 NEXT J 

935 NEXT 1 

100 IF S=i THEN GO TO 150 

110 PRINT "YO COJO UNA CARTA": LET K=1 
120 GO SUB 700 

130 60 SUB 800 

140 IF S=1 THEN GO TO 200 

150 PRINT "TOMA UNA CARTA": LET K=2 
160 GO SUB 700 

170 GO SUB 800 

180 GO SUB 1000 

190 IF S=1 THEN GO TO 110 

200 IF Kxzi OR Zizi THEN GO TO 270 
210 REM JUEGA EL ORDENADOR 

220 LET K=1: IF T(K)<S THEN GO TO 240 
230 LET Zi=1: PRINT "ME PLANTO": GO TO 270 
240 PRINT "YO COJO OTRA CARTA" 

250 CO SUB 700 

260 GO SUB 800 

270 REM JUEGA EL USUARIO 

280 IF Z2=1 THEN GO TO 310 
290 INPUT "QUIERES CARTA (1) O TE PLANTAS (2) ?”3w 
300 IF W=2 THEN LET Z2=1 
310 IF Zi=1 AND Z2=1 THEN GO TO 380 
320 IF Z2z=1 THEN GO TO 210 
330 PRINT "TOMA OTRA CARTA": LET K=2 
340 GO SUB 700 

350 GO SUB 300 

360 GO SUB 1000 

370 EC TO 200 

330 REM PRESENTACION Y COMPUTO FINAL 
390 PRINT "TUS CARTAS”: LET K=2 

400 FOR I=1 TO 10 

405 FOR J=1 TO 4 

410 IF A(1,J)<>K THEN GO TO 430 
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JUEGOS DE CARTAS 


420 
430 
440 
450 
460 
470 
480 
490 
500 
s10 
=20 
530 
540 
550 
560 
570 
580 
ses 
590 
600 
610 
620 
630 
635 
640 
700 
710 
720 
730 
740 
e00 
e10 
820 
e83o 
1000 
1010 
1020 
1030 
1032 
1034 
1040 
1050 
1060 
1070 
1072 
1074 
1076 
1080 
1090 
1100 
1110 
1120 
1130 


GO SUB 1000 
NEXT J 


PRINT : PRINT 


IF K=1 THEN 


IF T1(2)>7.3 THEN PRINT 
PRINT : PRINT 


GO TO 400 


IF T(1)>7.5 THEN PRINT 


: PRINT "SUMAN"35T(K) 


GO TO 490 


: PRINT "MIS CARTAS”: 


"TE HAS PASADO" 
LET K=1 


"ME PASE” 


IF T(1)>7.S AND T(2)>7.5 THEN GO TO 3590 
IF T(1)<8 AND T(2)<8 THEN GO TO 350 
IF T(1)>7.53 THEN GO TO 340 


PRINT "TE GANO": 
PRINT "ME GANAS”: 


LET Pi=P1+1: GO TO 600 
LET P2=P2+1: GO TO 600 


IF T(1)>T(2) THEN GO TO 530 
IF T(1)<T(2) THEN GO TO 540 
PRINT "POR LA MANO” 


IF S=1 THEN 
IF S=2 THEN 


GO TO 540 
GO TO 530 


PRINT "TABLAS” 


PRINT : PRINT 


: PRINT "PUNTUCION: 


PRINT "OTRA PARTIDA (S/N)?": INPUT As 
IF AS="N" THEN STOP 
IF Af="S" THEN RUN 


CcLS 


LET S=ABS (INT 


(S-1.5))+1: 


GO TO 50 


REM EXTRACCION DE UNA CARTA 


LET I=INT (RND*10)+1: 


LET 


J=INT (RND%49)+1 


IF A(1I,J)<>0 THEN GO TO 710 


LET A(1,J)=Kk 
RETURN 


REM PUNTUACION DE CADA JUGADOR 
IF 1<8 THEN LET T(K)=T(K)+1 
IF 1>=8 THEN LET T(K)=T(K)+.5 


RETURN 


REM ESCRITURA DE UNA CARTA 


IF I=mi THEN 
IF 1<8 THEN 
IF I=i THEN 
IF 1=2 THEN 
IF 1=3 THEN 


LET AS="SOTA"”: 
LET As="CABALLO”: 
LET AS="REY": 


IF Ja1 THEN 
IF J=2 THEN 
IF J=3 THEN 
IF J=4 THEN 
LET BS=" DE 
LET BS=" DE 
LET BS=" DE 
LET BS=" DE 
PRINT AS$+BS 
RETURN 


OROS”: 
COPAS": 
ESPADAS”: 
BASTOS": 


LET AS="AS": 


GO TO 1070 


LET AS=STRS$ (1): GO TO 1070 


GO TO 1040 
GO TO 1050 
GO TO 1060 


GO TO 1070 
GO TO 1080 
GO TO 1090 
GO TO 1100 
GO TO 1110 


GO TO 1070 
GO TO 1070 


GO TO 1120 
GO TO 1120 
GO TO 1120 

GO TO 1120 


YO: *3P15j" TU:"3P2Z 
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PROGRAMAS DE GRAFICOS 


Diagrama de barras*Gráficos. 


DIAGRAMA DE BARRAS 
Este programa te proporciona una salida gráfica para hacer un diagrama de barras. 


Mediante el programa podrás representar el valor de las variables según una 
escala que el propio ordenador eligirá. 


Así mismo, el ordenador te pedirá que elijas el color de la representación. 


Al ejecutar, el ordenador te pedirá todos los datos, por lo que no encontrarás 
ningún problema para rodar el programa. 


10 REM 34% DIAGRAMA DE BARRAS 3% 
30 FOR N=0 TO 15 

40 READ D 

50 POKE USR * "+N,D 

60 NEXT N 

70 DATA 127,127,127,127,127,127,127,127 

80 DATA 254,234,2534,254,254,254,254,2534 

90 INPUT "CUAL ES EL MAXIMO VALOR? (MULTIPLOS DE 20)"3M 
94 IF M<20 THEN PRINT PAPER 43 INK 95AT 10,11) "DEMASIADO PEQUENO!": GO TO 90 
100 IF M>100 THEN PRINT PAPER 3; INK 95AT 10,11;"DEMASIADO ALTO!": GO TO 90 
102 INPUT "COLOR (1-6)?"3C 

104 IF C<1 OR C>6 THEN GO TO 102 

108 CLS 

110 LET S=INT (M/20) 

116 LET P=1 

120 FOR J=1 TO 19 

124 IF SXxJ>9 THEN LET P=0 

130 PRINT AT 20-J,P5S%*J 

134 IF J=9 THEN LET P=20 

140 NEXT J 

146 LET N=1 

150 FOR J=1 TO 14 

154 LET N=N+2 

160 PRINT AT 21,N53 

170 NEXT J 

174 PLOT 18,170 

178 DRAW 0,-155 

182 DRAW 230,0 

186 LET N=3 

190 INPUT "VALOR? "jVs 

200 IF VS(1)>"9" OR V$(1)<"0" THEN GO TO 300 
210 LET VL=VAL Vs 

220 IF VL>M THEN LET VL=M 

230 FOR J=0 TO VL/S 

240 IF J=0 THEN GO TO 260 

250 PRINT  INK CjAT 20-J,Nj"  ” 

260 NEXT J 

270 LET N=N+2 

280 IF N=31 THEN GO TO 300 

290 GO TO 190 

300 INPUT "MAS? "¡06 
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310 IF Q6="N" OR Q6="n" THEN STOP 
320 INPUT “COLOR? *"3C 

330 IF C<i OR C>6 THEN GO TO 320 
340 GO TO 186 


GRAFICOS U.D.G. 
MN =A5 


3 
3 
2 
2 
2 
2 
2 
1 
1 
1 
e E 
1 


VRAVOVNAAVONARDONAND 


123456789 u10811121314 


pa $ 2 OOOO 00 UY 


VIDEO DOE Ao e 000 


IB od er 6 "7:87>9 IGIITRI3T 
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GRAFICOS 


Este programa te muestra una serie de gráficos. Podrás elegir mediante un menú 
cual quieres representar. 


Es interesante que además de ver los gráficos, veas la funciones que están 
representando. Verás que parece imposible que mediante sumas de funciones seno 
y coseno se formen cuadrículas, arañas y corazones. 


La primera opción que tienes son las curvas de Lissajous. Estas curvas se forman 
al sumar dos funciones senoidales de distintas frecuencia. El ordenador te 
pedirá el número de pasos, te recomendamos 500, la frecuencia de la función x y 
la frecuencia de la funcion y. Verás qué curvas tan curiosas salen. 


La segunda opción te genera aleatoriamente gráficas de Lissajous de 500 pasos. 


1 REM %%% GRAFICOS HX 
2 GO TO 1000 
3 REM 446 FIGURAS DE IIA 
9 REM dB LISSAJOUS — ARRE 
S PRINT "FIGURAS DE LISSAJOUS" 
6 INPUT "PASOS? *"3S 

7 INPUT "FRECUENCIA Y? "jY 

2 INPUT "FRECUENCIA X? "5X 

10 CLS 

15 PRINT "PASOS="3Sp" Y="3Y3"  X="3X 

17 FOR A=0 TO 2%*P1I STEP 2%*PI/S 

20 PLOT 40X%SIN (AXY)+120,40%C0S (AXX)+80 
25 NEXT A 

60 PRINT "OTRA VEZ (S/N)?" 

62 IF INKEY$="" THEN GO TO 62 

63 CLS 

64 IF INKEYS$="S" OR INKEYS$="s" THEN GO TO 5 
é5 CO TO 1000 

100 REM XAUTO-LISSAJOUSAXX% 

104 PRINT "AUTO-LISSAJOUS” 

103% LET S=500 

107 LET Y=INT (RNDX20)+1 

109 LET X=INT (RND%Z20)+1 

120 PRINT "PASOS="3S;" ="3Y3". X="3X 
125 FOR A=0 TO 2XxPI STEP 2X*P1/S 

130 PLOT 40X%SIN (AXY)+120,40%C0S (AXX) +80 
133 MEXT A 

140 PAUSE 100 

243 PRINT "OTRA VEZ? (S/N)” 

1350 IF JNKEYS="" THEN 60 TO 150 

182 CES 

15% IF INXEY$="S" OR INKEY$="s" THEN GO TO 100 
199 GO TO 1000 

200 REM XXX CIRCUNFERENCIA XXX 
201 REM %%% CIRCUNSCRITA HA 

202 REM XXXEN UN RECTANGUL 0% 

203 PRINT "CIRCUNFERENCIA CIRCUNSCRITA EN UN RECTANGULO DE LADÚUS A Y B" 
205 PRINT "LADOS (A,B) 2?” 

210 INPUT "A="34: INPUT "B=";5B 

215 FOP X=120-(A/2) TO 120+(4/2) 

220 PLOT X,80+(B/2) 

223 PLOT X,80- (B/2) 
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NEXT x 
FOP X=80-(B/2) TO 80+1B/2) 

PLOT 120-(A/2),X 

PLOT 120+(A/2),X 

NEXT X 

LET C=SOR (A*24+B"2) 

FOR N=.05 TO 12 STEP .1 

PLOT 120+(C/2)%C08S (N/6XPI),8S0+(C/Z2)XSIN (N/GXPI) 
NEXT ON 

DRINT "OTRA VEZ? (S/N>* 

IF INKEYS$="" THEN GO TO 282 


CcLs 

IF INKEYS$="S" CP IMKEYS$="s" THEN 69 TOS 200 
co TA 1000 

PEM XXX DIGITAL XXAXAXIXA 


PPINT "GENERADOR DIGITAL DE NUMEROS” 


- IMPUT "NUMERO (0-9)= "$Z 


CES 

PRINT "i0 PARA VOLVER AL MENU" 

IF Z=10 THEN GO TQ 1000 

FOR X=110 TO 140 

TF Z<>1 AND Z<>4 AND 2Z<>7 THEN PLCT X,490 

IF Z<>1 AND Z<>0 AND Z<>7 THEN PLOT X,70 

IF Z¿>1 AND Z2<54 THEN PLOT X,100 

NEXT X 

FOR Y=40 TO 70 

IF Z=2 CR Z=6 CR Z=8 OR Z=0 THEN PLOT 110,Y 
IF ZX>2 THEN PLOT 140,Y 

IF Z(>1 AND 2<>2 AND Z<>3 AND Z<>7 THEN PLOT 110,30+Y 
IF Z<>5 AND Z<734 THEN PLOT 140,Y+30 

NEXT Y 

69 TA 300 

REM %Y*X CARACOL AXIS 

LET Y=0 

FOR N=1 TO 32 STEP .5 

PLOT 110+(N%3/10)%COS (N/6XPI),30+(NX3/10)%SIN ¡N/Ó6*XPI) 
NEXT N ] 

FOR N=110 TO 113 

PLOT N,72 

NEXT N 

FOR N=93 TO 120 

PLOT N,68 

NEXT M 


< FOR N=93 TO 106 


PLOT N,68+Y 
LET Y=Y+9/1% 

NEXT N 

FOR N=1 TO 12 

PLOT 121+3%C0S (N/6*P1I),72+3%SIN (N/ÓXPI) 

NEXT N 

FOR N=75 TO 79 

PLOT 49+N,N 

NEXT N 

PRINT "OTRA VEZ? (S/N)* 

IF INKEYS="" THEN GO TO 497 

CLS : IF INKEYS$="S" OR INKEY$="s" THEN GO TO 400 
Go TO 1000 

REM %%X% ESPIRAL IRAK 

LET X=0 

LET N=INT (RNDX600)/10 
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511 LET N=INT (RNDX600)/10 

520 PLOT 110+(NX6/10)XC0S (N/6*XP1),80+(NF6/10)*SIN (N/ÓXPI) 
530 LET X=X+1 

540 IF X=800 THEN GO TO 560 

550 GO TO 310 

560 PRINT "OTRA VEZ? (S/N)"” 


570 IF INKEYS="" THEN GO TO 570 

575 CLS 

580 IF INKEYS="S" OR INKEYS$="s" THEN GO TO 500 
=90 GO TO 1000 

600 REM E CORAZON IIA 

£10 FOR N=13 TO 19 STEP .5 

£20 PLOT 110+8%C08S (N/6XPI),80+8XSIN (N/G6XPI) 
£25 NEXT N 

$30 FOR N=11 TO 17 STEP .5 

635 PLOT 126+8%C0S (N/é6*PI),80+B%XSIN (N/6XPI) 
637 NEXT N 

640 PLOT 118,83 

£45 LET X=120 

647 LET U=116 

650 FOR Y=60 TO 74 STEP 2 

655 LET X=X-2 

660 LET W=W+2 

665 PLOT X,Y 

670 PLOT Y, Y 

£80 NEXT Y 

685. PRINT AT 7,125 "MARIA" 

687 PRINT AT 21,0;"OTRA VEZ? (S/N)” 

690 IF INKEYS$="" THEN GO TO 690 

691 CLS 

692 IF INKEYS$="S" OR INKEYS="s" THEN GO TO 600 
695 GO TO 1000 

700 REM 4H CUADRICULA IHR 

730 FOR C=1 TO 40 

768 FOR N=.53 TO 12 STEP .5 

770 PLOT 110+40%C0S (N/6*PI),SO0+CASIN (N/6XPI) 
771 PLOT 110+C%4C0S (N/6*PI),80+40X%SIN (N/6*PI) 
772 NEXT N 

775 NEXT C 

780 PRINT "OTRA VEZ? (S/N)" 

785 1F INKEYS="" THEN GO TO 785 

787 CLS 

790 IF INKEYS$="S" OR INKEY$="s" THEN GO TO 700 
799 GO TO 1000 

800 REM %X RED y ARANA IRE 

810 FOR N=110 TO 154 STEP 2 

815 PLOT N,NX2/3 

8léó PLOT N,1?75- (N%2/3) 

820 NEXT N 

825 FOR N=72 TO 103 STEP 2 

828 PLOT 131,N 

830 NEXT N 

858 FOR N=.53 TO 60 STEP .5 

870 PLOT 131+(N/3.5)%C08S (N/6*P1),88+(N/3.5)%SIN (N/6*PI) 
872 NEXT N 

920 FOR N=1 TO 12 

930 PLOT 35+8%C0S (N/6*PI),20+6X*SIN (N/6XPI) 
935 PLOT 22+5XC0S (N/6XP1I),20+4%*SIN (N/G6*PI) 
938 PLOT 14+3%C0S (N/6*PI),20+2%*SIN (N/6X*PI) 
940 NEXT N 


950 
960 
958 
970 
974 
2980 
990 
993 
994 
995 
996 
997 
998 
999 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
10920 
1090 
1:00 
1150 
1160 
1200 
1205 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


FOR N=10 TO 20 
PLOT N,NM-44 


PLOT 45-N, 
PLOT 43-N, 


PLOT N,N-3 


NEXT N 


N-44 
N-3 


FOR N=0 TO 15 


PLOT 22,N 


PLOT 22,N+24 


NEXT N 


PRINT "OTRA VEZ? (S/N)" 


IF INKEYS="" THEN 50 TO 997 


CcLS 


IF INKEYS$="S"” 


PRINT "PULSA 


PRINT 

PRINT * 1. FIGURAS DE LISSAJOUS” 
PRINT * 2. AUTO-LISSAJOUS" 
PRINT * 3, 

PRINT * 4. DIGITAL” 

PRINT * 3. CARACOL” 

PRINT " £. ESPIRAL” 

PRINT * ?, CORAZON” 

PRINT * 8. CUADRICULA" 
PRINT * 9. RED y ARANA" 
TF INKEYS="" THEN 

CLS 

LET Af=INKEYS 

CcLS 

IF A$="i" THEN GO TO 5 
IF A$="2" THEN GO TO 104 
IF A$="3" THEN GO TO 203 
IF A$="4" THEN GO TO 302 
IF A$="=" THEN GO TO 410 
IF A$="6" THEN GO TO 303 
IF A$="7" THEN GO TO 610 
1F A$="8" THEN GO TO 2730 
IF A$="9" THEN GO TO 810 


CIRCUNFERENCIA CIRCUNSCRITA” 


0 TC 1150 


OR INKEYS="g9" 
OPCION ELEGIDA” 


THEN GO TO 800 
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PROGRAMAS CIENTIFICOS Y TECNICOS 


Interés*Sucesiones*Complejos*O0perando complejos*Ceros de funciones: método de 
Newton*Integración numérica: método de Simpson*Mínimo común multiplo y máximo 
común divisor*Números primos*Factorial de un número*Binomio de Newton* Cálculo 
del determinante de una matriz*Cálculo de la inversa de una matriz*Relaciones 
métricas en el triángulo. 


INTERES 


Mediante este sencillo programa podemos calcular el capital final en que se 


convierte un capital inicial, colocado a un interés simple R, al cabo de un 
tiempo T. 


Al ejecutar el programa observarás un menú: 

1.- INTERES SIMPLE ANUAL. 

2.- INTERES SIMPLE MENSUAL. 

3.- INTERES SIMPLE DIARIO. 
Pulsa "1", "2" ó "3" según el tiempo, al cabo del que queremos conocer el 
capital final, esté en años, meses Ó días respectivamente. 


80 REM AA INTERESA 

90 CLS 

100 PRINT 

110 PRINT "ESTE PROGRAMA LE PERMITE CALCU- LAR :* 
120 PRINT 

130 PRINT 

140 PRINT " 1.- INTERES SIMPLE ANUAL" 

150 PRINT " 2.- INTERES SIMPLE MENSUAL " 

160 PRINT * 3.- INTERES SIMPLE DIARIO" 

170 PRINT 

180 PRINT 

190 PRINT "SEGUN LA OPCION DESEADA PULSE ELNUMERO QUE LE PRECEDE" 
200 INPUT P 

210 IF P=1 THEN GO TO 219 

212 1F P=2 THEN GO TO 319 

214 IF P=3 THEN GO TO 419 

21é6 GO TO 200 

218 REM - CALCULO DEL INTERES SIMPLE ANUAL - 
219 CLS 

220 PRINT "CAPITAL INICIAL CI = "; 

230 INPUT CI: PRINT CI 

240 PRINT “TANTO POR CIENTO ANUAL R = *; 

250 INPUT R: PRINT R 

260 PRINT "NUMERO DE ANOS T = "; 

270 INPUT T: PRINT T 

280 LET CF=CIX*(1+RXT/100) 

290 PRINT 

300 PRINT "EL CAPITAL FINAL AL CABO  DE"j¿T3" ANOS ES : CF = "¿CF 
310 GO TO 520 

318 REM - CALCULO DEL INTERES SIMPLE MENSUAL - 
319 CLS 

320 PRINT "CAPITAL INICIAL CI = ”; 

330 INPUT CI: PRINT CI 

340 PRINT "TANTO POR CIENTO ANUAL R = ”; 

350 INPUT R: PRINT R 
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360 
370 
3380 
390 
400 
410 
418 
419 
420 
430 
440 
450 
460 
470 
480 


490 
500 


510 
520 
530 
590 
350 
560 
570 
580 
590 
600 


PRINT "NUMERO DE MESES M= *; 

IMPUT M: PRINT Mm 

LET CF=CIX(1+RXM/1200) 

PRINT 

PRINT "EL CAPITAL 'FINAL AL CABO DE"jM;" MESES ES : CF = ";CF 
60 TO 520 

REM - CALCULO DEL INTERES SIMPLE DIARIO - 

cLS 

PRINT "CAPITAL INICIAL CI = ”; 

INPUT CI: PRINT CI 

PRINT "TANTO POR CIENTO ANUAL R = *; 

INPUT R: PRINT R 

PRINT "NUMERO DE DIAS D = "; 

INPUT D: PRINT D 

LET CF=CIX(1+RXD/36000) 

PRINT 

PRINT "EL CAPITAL FINAL AL CABO DE"3D;3"” DIAS ES : CF = *5CF> 
GO TO 520 có 
REM - PARA REALIZAR MAS CALCULOS - 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT "DESEA CONTINUAR REALIZANDO OTRASOPCIONES ? S/N”; 

INPUT Cs 

IF C$="N" OR C$="r" THEN GO TO 610 

GO TO 90 


EJEMPLO: 

CAPITAL INICIAL CI = 129000 
TANTO _ POR CIENTO ANUAL R = 13 
NUMERO DE ANOS T = 18 

EL CAPITAL FINAL__AL_ CABO DE 
18 ANOS ES CF = 27609009 


DESEA CONTINUAR REALIZANDO OTRAS 
OPCIONES 7? S/N 


SUCESIONES 


Con este programa podremos estudiar sucesiones aritméticas. Podremos calcular: 
1.- Término n-ésimo. 
2.- Razón de la progresión. 
3.- Primer término. 


AE 


Número de términos. 


5.- Interpolación de un número determinado de medios aritméticos. 
6.- Suma de los n primeros términos de una sucesión. 


Todo el programa está basado en la siguiente expresión para el término n-ésimo: 


A = 


A1+(N-1)D 


Donde AN: término n-ésimo. 


Al: primer término. 
D: razón. 
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80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
241 
242 
243 
244 
245 
248 
249 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
348 
349 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
448 
449 
450 
460 
470 
480 
490 
500 
510 


REM IABARESUCES IONES 


CcLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
IF P=1 
IF P=2 
IF P=3 
IF P=4 
IF P=5 
IF P=6 
REM - 
cLS 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
LET AN 
PRINT 
PRINT 
60 TO 
REM - 
cLs 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
LET D= 
PRINT 
PRINT 
60 TO 
REM - 
cLsS 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
LET Al 


520>PRINT 
330 PRINT 
540 60 TO 890 

548 REM - CALCULO DEL NUMERO DE TERMINOS - 
549 CLS 
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"EL PRESENTE PROGRAMA LE PERMITECALCULAR LO SIGUIENTE :" 


*"i.- CALCULO DEL TERMINO N-ESIMO" 

"2.- CALCULO DE LA RAZON" 

"3.- CALCULO DEL TERMINO PRIMERO" 

"4,.- CALCULO DEL NUMERO DE TERMI-NOS"” 

"5.- INTERPOLAR H MEDIOS ARITME- TICOS ENTRE DOS TERMINOS 
”"6.- CALCULO DE LA SUMA DE N TER-MINOS CONSECUTIVOS" 


"SEGUN LA OPCION DESEADA PULSE ELNUMERO QUE LE PRECEDE" 5 
P 


THEN GO TO 249 
THEN GO TO 349 
THEN: GO TO 4499 
THEN GO TO 549 
THEN GO TO 649 
THEN GO TO 789 
CALCULO DEL TERMINO N-ESIMO - 


“TERMINO PRIMERO Al 
Ai: PRINT Al 

"NUMERO DE TERMINOS N 
N: PRINT N 

"RAZON O DIFERENCIA D 
D: PRINT D 
=A1+(N-1)%D 


"EL TERMINO N-ESIMO DE LA PROGRE-SION ES: AN = "j3AN 
890 
CALCULO DE LA RAZON - 


4 
z 


"TERMINO PRIMERO Al 
A1: PRINT Al 

"TERMINO N-ESIMO AN 
AM: PRINT AN 

"NUMERO DE TERMINOS N 
N: PRINT N 
(AN-A1)/(N-1) 


"LA RAZON O DIFERENCIA DE LA PRO-GRESION ES: D = "3D 
890 
CALCULO DEL TERMINO PRIMERO - 


"TERMINO N-ESIMO AN 
AN: PRINT AN 

"RAZON O DIFERENCIA D 
D: PRINT D 

"NUMERO DE TERMINOS N 
N: PRINT N 

=AN- (N-1)%XD 


"EL PRIMER TERMINO DE LA PROGRE- SION ES: Al = "jAl 


DADOS" 
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550 
569 
3570 
sen 
590 
600 
610 
620 
630 
640 
é38 
649 
650 
£60 
é70 


PRINT "TERMINO PRIMERO Al 
INPUT Ai: PRINT Al 

PRINT "TERMINO N-ESIMO AN 
INPUT AN: PRINT AN 

PRINT "RAZON O DIFERENCIA D 
INPUT D: PRINT D 

LET N=1+(AN-A1)/D 

PRINT 

PRINT "EL NUMERO DE TERMINOS DE LA PRO-GRESION ES: N = "j3N 

GO TO 890 

REM - INTERPOLAR H MEDIOS ARITMETICOS ENTRE DOS TERMINOS DADOS - 

cLs 

PRINT "CUANTOS MEDIOS DESEA INTERPOLAR "; 

INPUT H: PRINT H 

PRINT "INTRODUZCA EL PRIMERO Y EL ULTI-MO TERMINO ENTRE LOS QUE QUIERE INTE 


RPOLAR "3H3" MEDIOS ARITMETICOS"” 


680 
690 
200 
710 
720 
730 
740 
750 
760 
2770 
780 
738 
789 
790 
800 
si0 
820 
e30 
840 
250 
8é0 
870 
S z 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 


INPUT P,U: PRINT P,U 
LET D=(U-P)/(H+1) 

PRINT 

PRINT "LA RAZON DE LA PROGRESION ES : D= "5D 

PRINT 

PRINT "LOS MEDIOS ARITMETICOS INTERPO- LADOS SON :” 

FOR I=1 TO H 

LET T=P+IXD 

PRINT T, 

NEXT 1 

GO TO 890 

REM - CALCULO DE LA SUMA DE N TERMINOS CONSECUTIVOS - 
cLs 

PRINT “CUANTOS TERMINOS CONSECUTIVOS DESEA SUMAR: N = ”; 
INPUT N: PRINT N 

PRINT "TERMINO PRIMERO Ai = ”; 

INPUT Ai: PRINT Al 

PRINT "RAZON O DIFERENCIA D = *; 

INPUT D: PRINT D 

LET S=NX(A1+ (N-1)%(D/2)) 

PRINT 

PRINT "LA SUMA DE LOS "3N5" TERMINOS CONSE-CUTIVOS DE LA PROGRESION ES : 
ES 

Go TO 890 

REM - PARA REALIZAR MAS CALCULOS - 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT "DESEA CONTINUAR REALIZANDO OTRASOPCIONES ? S/N"; 
INPUT Cs 

IF C$="N" OR C$="n" THEN GO TO 980 

Go TO 90 


COMPLEJOS 


Mediante este programa podremos sumar, restar, multiplicar y dividir dos números 
complejos escritos en forma binómica. 


Para 
coma 


introducir los complejos deberemos escribir primero la parte real, una 
y la parte imaginaria. 
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104 


REM IRBEECOMPLE J OSIAA 

CcLS 

PRINT 

PRINT "INTRODUZCA PRIMERO LA PARTE REALY A CONTINUACION LA IMAGINARIA" 
PRINT 

REM - ENTRADA DE DATOS - 

PRINT "COMPLEJO Zi = *"; 

INPUT X1,Y1: PRINT X15 

IF Yi>=0 THEN PRINT "+*3 

PRINT Yijz"i” 

PRINT "COMPLEJO 'Z2 = *; 

INPUT X2,Y2: PRINT X25 

IF Y2>=0 THEN PRINT "+"; 

PRINT Y23"i” 

PRINT 

PRINT 

PRINT 

REM - SUMA DE COMPLEJOS - 

LET XS=X1+X2 

LET YS=Y1+Y2 

PRINT "COMPL. SUMA :Z1+Z2="3XS;5 
IF YS>=0 THEN PRINT "+"*"5 

PRINT YSj3"i" 

PRINT 

REM - DIFERENCIA DE COMPLEJOS - 
LET XR=Xi-X2 

LET YR=Y1-Y2 

PRINT "COMPL. DIFERENCIA: Z1-Z2=";XR; 
IF YR>=0 THEN PRINT "+"; 

PRINT YR5"i" 

PRINT 

REM - PRODUCTO DE COMPLEJOS - 

LET XP=X1%X2-Y1%XY2 

LET YP=X1XY2+Y1XX2 

PRINT "COMPL. PRODUCTO: Z1X22=";XP;5 
IF YP>=0 THEN PRINT *+*j 

PRINT YP;5"i" 

PRINT 

REM - COCIENTE DE COMPLEJOS - 

IF X2=0 AND Y2=0 THEN GO TO 460 
LET M=Xx2%X2+Y2*Y2 

LET XC=(X1%X2+Y1XY2) /M 

LET YE=(-X1FY24+Y1%X2) /M 

PRINT "COMPL. COCIENTE:Z1/Z2=";XC; 
1F YC>=0 THEN PRINT "+"; 

PRINT YC3"i" 

GO TO 462 

PRINT "NO ES POSIBLE LA DIVISION POR EL COMPLEJO NULO" 
PRINT 

PRINT 

PRINT 

PRINT "DESEA REALIZAR OTRO CALCULO? S/N" 
INPUT C$ 

IF C$="N" OR C$="n" THEN STOP 

GO TO 90 
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OPERANDO COMPLEJOS 


Este programa es un poco más complejo que el anterior. Al empezar a trabajar con 
el programa te aparecerá un menú con el que elegirás entre cuatro opciones, es 


decir, entre cuatro operaciones posibles a realizar con dos complejos escritos 
en forma polar. 


Las cuatro operaciones son: 

1.- Producto. 

2.- Cociente. 

3.- Potencia n-ésima de cada uno de los dos complejos. 
4.- Raices n-ésima de cada uno de los dos complejos. 


1 REM XXXOPERANDO COMPLEJOS 


100 PRINT 

110 PRINT "EL PRESENTE PROGRAMA LE PERMITE CALCULAR : ” 

120 PRINT 

130 PRINT 

140 PRINT "1.-PRODUCTO DE DOS NUMEROS COM- PLEJOS EN FORMA POLAR" 
150 PRINT "2.-COCIENTE DE DOS NUMEROS COM- PLEJOS EN FORMA POLAR" 


160 PRINT "3.-POTENCIA N-ESIMA DE CADA UNO DE LOS DOS COMPLEJOS EN FORMA 
OLAR" 

170 PRINT "4.-RAICES N-ESIMAS DE CADA UNO DE LOS DOS COMPLEJOS EN FORMA 
OLAR” 

180 PRINT 

190 PRINT 

200 PRINT 

205 PRINT "PULSE UNA TECLA PARA CONTINUAR": PAUSE O: CLS 

209 REM - ENTRADA DE DATOS - 

210 PRINT "MODULO DEL COMPLEJO Z1: Ri="; 

220 INPUT Ri: PRINT Ri 

230 PRINT "ARGUMENTO DEL COMPLEJO Z1:Wi="5 

240 INPUT Wi: PRINT Wi 

250 PRINT 

260 PRINT "MODULO DEL COMPLEJO Z2: R2="; 

270 INPUT R2: PRINT RZ2 

280 PRINT "ARGUMENTO DEL COMPLEJO Z2:W2="3 

290 INPUT W2: PRINT W2 

300 PRINT 

310 PRINT "EXPONENTE (INDICE PARA LA POTEN -CIACION Y LA RADICACION) N = *; 
320 INPUT N: PRINT N 

330 PRINT 

339 REM - PRODUCTO DE NUMEROS COMPLEJOS - 

340 LET RM=R1XRZ 

350 LET WM=W1+W2 

360 PRINT "EL COMPLEJO PRODUCTO ES Z1XZ2 =MODULO "3RM;3", ARGUMENTO *”3WmM3" 


370 PRINT 

379 REM - COCIENTE DE NUMEROS COMPLEJOS - 

390 LET RC=R1/R2 

400 LET WC=W1-W2 

410 PRINT "EL COMPLEJO COCIENTE ES Z1/Z2 = MODULO “¿RC5", ARGUMENTO "¿WC5" 


420 PRINT 


== 


v 


GRAD 


GRAD 
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e 


429 REM - POTENCIA N-ESIMA DE Z1 - 

430 LET R3=R1”N 

940 LET W3=W13%N 

450 PRINT "POTENCIA N-ESIMA DE Zi = (Z1)”N=MODULO "¿R3;", ARGUMENTO "3W33" GRAD 


460 PRINT 

469 REM - POTENCIA N-ESIMA DE Z2 - 

470 LET R4=R2"N 

480 LET W4=W2%N 

490 PRINT "POTENCIA N-ESIMA DE Z2 = (Z2)”“N=MODULO "5¿R4;5", ARGUMENTO ";W45" GRAD 


500 PRINT 

509 REM - RAICES N-ESIMAS DE Zi - 

510 LET R=Ri 

520 LET W=w1 

530 GO SUB 700 

540 PRINT 

550 LET R=R2 

560 LET W=W2 

570 GO SUB 700 

580 GO TO 9000 

700 LET Ré=R” (1/N) 

710 LET Wé=W/N 

720 PRINT 

730 PRINT 

740 PRINT "ORDEN RAIZ", "VALOR DE LA RAIZ" 
750 PRINT 

TN IR 
770 PRINT 

780 FOR J=1 TO N 

790 LET W7?=W6+360* (J-1)/N 

800 PRINT * ”5J, 

810 PRINT "MODULO "3R6”,"ARGUMENTO "3W75"“ G." 
820 NEXT J 

230 RETURN 


CERO DE FUNCIONES: METODO DE NEWTON 


Mediante este programa podemos calcular el cero de una función dada, es decir, 
la solución de la ecuación F(x)=0. 


El método es un proceso iterativo; consiste en ir encontrando una sucesión de 


soluciones, cada una de las cuales se aproxima más a la solución exacta que la 
anterior. 


Para ejecutar el programa debemos introducir un valor inicial. 


Introduciremos la función en la línea 310 de la forma: 
310 LET Y=F(x) donde F(x) es la función de la que queremos calcular los ceros. 


Así mismo debemos introducir la derivada de la función en la línea 320. 
320 LET DY=F'(x). é 


Introduciremos también el error máximo que admitimos, así como el número máximo 
de iteraciones a realizar. Esto último para evitar caer en un bucle sin fin. 
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1 REM XXCEROS DE FUNCIONESX+* 
2 REM XXMETODO DE NEWTONXX 
100 PRINT 
109 REM - ENTRADA DE DATOS - 
110 PRINT "DEFINA LA FUNCION QUE DESEA ES- TUDIAR EN LA LINEA 310" 
120 PRINT "DEL SIGUIENTE MODO : 310 LET Y=....” 
130 PRINT "A CONTINUACION PULSAR<CONT >" 
140 STOP 
150 PRINT "DEFINA LA FUNCION DERIVADA DE Y=F(X) EN LA LINEA 320" 
160 PRINT "DEL SIGUIENTE MODO : 320 LET DY=....” 
170 PRINT "A CONTINUACION PULSAR<CONT >" 
180 STOP 
190 PRINT "INTRODUZCA UN VALOR INICIAL ”; 
200 INPUT XO: PRINT XO 
210 PRINT "ERROR MAXIMO DESEADO "; 
220 INPUT D: PRINT D 
230 PRINT "NUMERO MAXIMO DE ITERACCIONES A REALIZAR "5; 
240 INPUT 1: PRINT 1 
250 GO SUB 340 
259 REM - SALIDA DE RESULTADOS - 
260 PRINT 
270 PRINT "UNA RAIZ ES X= "3X3” CON UN ERROR MENOR QUE "5D 
280 PRINT "EL VALOR CORRESPONDIENTE PARA Y ES = "jY 
290 PRINT "EL NUMERO DE ITERACCIONES REALI-ZADO ES = "3J 
300 60 TO 440 
330 RETURN 
340 LET J=0 
350 LET X=X0 
3539 REM - SI SE DESEA VER LA CONVERGENCIA HAY QUE INCLUIR LA INSTRUCCION 360 - 
360 PRINT J,X 
370 GO SUB 310 
380 LET XO=X0-Y/DY 
390 LET J=J+1 
400 IF J>=I THEN GO TO 430 
410 IF ABS (Y/DY)>D THEN GO TO 350 
420 LET X=X0 
430 RETURN 


INTEGRACION NUMERICA: METODO DE SIMPSON 


Este programa sirve para calcular la integral definida en un intervalo dado de 
una función desconocida. De dicha función únicamente conocemos sus valores para 
unos determinados puntos. 


Sigue las instrucciones que te irán apareciendo en la pantalla. 


1 REM XINTEGRACION NUMERICA 
2 REM XMETODO DE SIMPSONX 
110 PRINT "INTRODUZCA LOS LIMITES DEL IN- TERVALO: INFERIOR = "5 
114 INPUT A: PRINT A, 
116 PRINT * Y SUPERIOR = *; 
120 INPUT B: PRINT B 
130 PRINT "INTRODUZCA EL NUMERO DE INTERVA-LOS (PARES) *5 
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140 INPUT M: PRINT M 

150 LET N=M/2 

160 PRINT "VALORES DE LA FUNCION EN LOS EX-TREMOS INFERIOR = "j 
162 INPUT Y1: PRINT Yi, 

165 PRINT * Y SUPERIOR = *; 

170 INPUT Y2: PRINT Y2 

180 LET H=(B-A)/ (2%N) 

190 LET Ni=2%N-1 

200 LET N2=2X(N-1) 

210 LET SI=0 

220 LET SP=0 

229 REM - SUMA DE LOS PUNTOS IMPARES - 

230 FOR J=1 TO N1 STEP 2 

240 PRINT "VALOR DE F(X) PARA X = "jA+HXJ¿" "5 
250 INPUT Y: PRINT Y 

260 LET SI=SI+Y 

270 NEXT J 

279 REM - SUMA DE LOS PUNTOS PARES - 

280 FOR J=2 TO N2 STEP 2 

29%0 PRINT "VALOR DE F(X) PARA X = "jA+HXJ3"  "; 
300 INPUT Y: PRINT Y 

310 LET SP=SP+Y 

320 NEXT J 

329 REM - SALIDA DEL RESULTADO - 

330 PRINT 

340 PRINT 

350 LET IS=HX(Y1+49%SI+2%*SP+Y2)/3 

360 PPINT "LA INTEGRAL PEDIDA ES = *j3IS 

370 PRINT " (MEDIANTE LA REGLA DE SIMPSON) " 


MINIMO COMUN MULTIPLO Y MAXIMO COMUN DIVISOR 


A continuación presentamos dos programas para calcular el m.c.m. y el m.c.d.. 
El primero calcula el m.c.m. y m.c.d. de dos números. Incluimos este programa 
porque es usado como una subrutina en el siguiente. 


Para calcular el m.c.d. de dos números el programa utiliza el algoritmo de 
Euclides. 


El otro programa calcula el m.c.m. y m.c.d. de tres números. 


1 REM XXM.C.M. Y M.C.D. DE XxX 
2 REM XxX DOS NUMEROS xX 
100 PRINT 
110 PRINT "INTRODUZCA LOS DOS NUMEROS” 
120 PRINT 
130 INPUT A,B 
140 LET P=AXB 
150 LET R=A-BXINT (A/B) 
160 IF R=0 THEN GO TO 200 
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170 LET A=B 

180 LET B=R 

190 GO TO 150 

200 PRINT 

210 PRINT "M.C.D. (A,B) = "¿B 
220 LET M=P/B 

230 PRINT "M.C.M. (A,B) = "¿M 
240 PRINT 

250 PRINT 

260 GO TO 110 


1 REM XXM.C.M. Y M.C.D. DE XX 
2 REM XX TRES NUMEROS  %xX 
100 PRINT 
110 PRINT "INTRODUZCA LOS TRES NUMEROS " 
120 PRINT "ORDENADOS DE MENOR A MAYOR" 
130 INPUT A5TAB 10;B;5TAB 20;5C: PRINT A;jTAB 10;B;TAB 20;C 
140 LET X=A 
150 LET Y=B 
160 LET P=AXB 
170 LET M=P/Y 
180 GO SUB 269 
195 LET M=P/Y 
190 LET X=C 
200 GO SUB 269 
210 PRINT "M.C.D. ("5A3", "3B3", "505")= "zY 
220 LET X=M ; 
230 LET Y=C 
240 GO SUB 269 
250 PRINT "M.C.M. ("5A3", "3B3", "5053")= "5z 
260 GO TO 999 
269 REM - SUBRUTINA PARA EL CALCULO DEL M.C.D. DE DOS NUMEROS - 
270 LET Q=INT (X/Y) 
280 LET Rz=X-Q%Y 
290 IF R=0 THEN GO TO 340 
300 LET X=Y 
310 LET Y=R 
320 LET Z=MxXC/Y 
330 GO TO 270 
340 RETURN 


NUMEROS PRIMOS 


Mediante este breve programa podrás calcular la lista de los números primos 
hasta uno determinado que tu especifiques. 


Este método es el que aplicó Eratóstenes para distiguir los números primos y 
calcular su tabla. 


1 REM NUMEROS PRIMOS 
100 PRINT 


110 PRINT "INDIQUE HASTA QUE NUMERO DESEA OBTENER LA LISTA DE NUMEROS PRI-MOS" 
120 INPUT Mm 
130 PRINT 
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140 PRINT "LISTA DE NUMEROS PRIMOS MENORES QUE "¿Mm 
150 PRINT 

160 FOR N=2 TO M 

170 FOR 1=2 TO N 

180 IF I>SQR (N) THEN GO TO 210 

185 LET R=N-IXINT (N/I) 

190 IF R=0 THEN GO TO 220 

200 NEXT 1 

210 PRINT N3" "5 

220 NEXT N 


FACTORIAL DE UN NUMERO 


Con este programa podrá calcular el factorial de un número natural. 


Cuando el factorial del número pedido no quepa en el ordenador, éste te 
imprimirá el mensaje que te dice que el factorial del número pedido excede de 
99 cifras. Dicho número es el 69. 


1 REM XXXFACTORIAL DE UNX%% 
2 REM XX NUMERO XXX 
100 PRINT 
110 PRINT "QUE FACTORIAL DESEA HALLAR N="; 
120 INPUT N: PRINT N 
130 IF N>34 THEN GO TO 270 
140 LET 1=0 
150 LET F=1 
160 LET I=1+1 
170 LET F=FXI 
180 IF I<N THEN GO TO 160 
190 PRINT "EL FACTORIAL DE "¿N5" ES = ”"j¡F 
200 PRINT 
210 PRINT 
220 PRINT "DESEA REALIZAR OTRO CALCULO? S/N" 
230 INPUT C5$ 
240 IF C$="N" OR C$="n" THEN GO TO 290 
250 PRINT 
260 GO TO 100 
270 PRINT "EL NUMERO PEDIDO ES DEMASIADO GRANDE" 
280 GO TO 200 


BINOMIO DE NEWTON 


Este programa nos permite calcular la potencia n-ésima de un binómio, realizando 
un desarrollo del llamado binomio de Newton. 


Si por error introduces un exponente no natural, el programa te informará del 
error. 


1 REM XXBINOMIO DE NEWTON 
100 PRINT 


110 


110 
120 
130 
140 
149 
150 
160 
170 
180 
190 
200 
202 
210 
220 
230 
240 
250 
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PRINT "ESCRIBA EL VALOR DEL EXPONENTE M = *; 
INPUT M: PRINT M 
IF INT (M)<>M OR ABS (M)<>M THEN GO TO 230 
PRINT 

REM - FORMACION DE LOS COEFICIENTES BINOMICOS - 
FOR N=0 TO M 

LET C=1 

FOR J=1 TO MN 

LET C=C%*(M-3+1)/J 

NEXT 3 

PRINT C3"XA*"3M-N3"XB""3N5 

IF M-N<>0 THEN PRINT * + ”j 

NEXT N 

STOP 

PRINT "M HA DE SER UN NUMERO NATURAL" 

PRINT 

GO TO 110 


CALCULO DEL DETERMINANTE DE UNA MATRIZ 


Este programa calcula el “determinante de una matriz cuadrada dada. 


Deberás introducir en primer lugar el orden del determinante y seguidamente la 
matriz. 


El método consiste en triangularizar la matriz, y una vez que la matriz sea 
triangular, el producto de los elementos de la diagonal principal es el valor 


del 


determinante. 


REM _CALCULO DE DETERMINANTE 

PRINT 

REM - ENTRADA DE LA MATRIZ A - 

PRINT "ORDEN DEL DETERMINANTE DE LA MA-TRIZ A(N,N), N= *5 
INPUT N: PRINT N 

DIM A(N,N): DIM Y(N) 

FOR F=1 TO N 

PRINT 

PRINT "FILA .3F 

FOR C=1 TO N 

PRINT "ELEMENTO DE FILA "5F5" COLUMNA "3C5"="3 
INPUT A(F,C): PRINT A(F,C) 

NEXT C 

PRINT 

NEXT F 

REM -INICIO DEL CALCULO DEL DETERMINANTE - 
FOR C=1 TO N 

FOR F=C TO N 

IF A(F,C)<>0 THEN GO TO 290 

NEXT F 

PRINT "EL DETERMINANTE ES = O"”"LA MATRIZ A(N,N) ES SINGULAR” 
GO TO 520 

FOR K=t TO N 

LET A=A(C,K) 
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310 LET A(C,K)=A(F,K) 

320 LET A(F,K)=X 

330 NEXT K 

340 LET Y(C)=A(1C,C) 

350 LET Y=1/A(C,C) 

360 FOR K=1 TO N 

370 LET A(C,K)=YXA(C,K) 
380 NEXT K 

390 FOR F=1 TO N 

400 IF F=C THEN GO TO 450 
410 LET Y=-A(F,C) 

420 FOR K=1 TO N 

930 LET A(F,K)=A(F,K)+YX*A(C,K) 
490 NEXT K 

450 NEXT F 

460 NEXT C 

470 LET D=1 

480 FOR F=1 TO N 

990 LET D=DXY(F) 

500 NEXT F 

510 PRINT "EL DETERMINANTE DE LA MATRIZ DA-DA ES IGUAL A "jD 


CALCULO DE LA INVERSA DE UNA"MATRIZ 


Mediante este programa puedes calcular la matriz inversa de una matriz cuadrada 
dada. 


Cuando el determinante de la matriz cuadrada sea nulo, el programa informará de 
que la matriz es singular, es decir, no tiene inversa. 


El programa redondea los elementos de la matriz inversa hasta la cuarta cifra 
decimal; observa la sentencia 610. 


1 REM INVERSA DE UNA MATRIZX% 
100 PRINT 
110 PRINT "DIMENSION DE LA MATRIZ A INVER- TIR N = ”*; 
120 INPUT N: PRINT N 


130 PRINT 

140 PRINT "MATR I Z Aa" 
150 DIM A(N,N): DIM B(N,N) 

160 PRINT 


170 FOR F=1 TO N 

180 PRINT "F IL A “yF 

190 FOR C=1 TO N 

200 PRINT "ELEMENTO DE FILA "”"3F3" COLUMNA "5C3*="3 
210 INPUT A(F,C): PRINT A(F,C) 
220 NEXT C 

230 PRINT 

2490 NEXT F 

250 PRINT 

260 PRINT 

270 FOR F=1 TO N 

280 LET B(F,F)=1 
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290 NEXT 4 
300 FOR C=¿ TON 

310 FOR F=C TO N 

320 IF A(F,C)<>0 THEN GO TO 360 

330 NEXT F 

340 PRINT "MATRIZ SINGULAR: NO TIENE INVER-SA” 
350 G0 TO 450 

360 FOR K=1 TO N 

370 LET X=A(C,K) 

380 LET A(C,K)=A(F,K) 

390 LET A(F,K)=X 

400 LET XB=B(C,K) 

410 LET B(F,K)=XB 

420 NEXT K 

430 LET Y=1/A1C,C) 

440 FOR K=1 TO N 

450 LET A(C,K)=A(C,K)xXY 

460 LET B(C,K)=B(C,K)XY 

470 NEXT K 

480 FOR P=1 TO N 

490 IF P=C THEN G9 TO 550 

500 LET Y=-A(P,C) 

510 FOR K=1 TO N 

520 LET A(P,K)=A(P,K)+A(C,K)%Y 

530 LET B(P,K)=B(P,K)+B(C,K)XY 

540 NEXT K 

550 NEXT P 

560 NEXT € 

570 PRINT "LA MATRIZ INVERSA DE LA MATRIZ DADA ES :" 
580 PRINT 

590 FOR F=1 TO N 

600 FOR C=1 TO N 

610 PRINT INT (B(F,C)*10000+.5)/10000;" "; 
620 NEXT € 

630 PRINT 

640 NEXT F 
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A: Modos gráficos*B: Movimiento con el Spectrum*C:Poniendo a punto tus programas. 


APENDICE_ A 
MODOS GRAFICOS 


Como observarás si ojeas un listado, aparecen gran cantidad de sentencias REM 
que indican que algún carácter, letra o número está en modo G. 


Si el carácter que está en modo G es un número, indica que en lugar de ese 
número deberás pulsar el gráfico que corresponde; esto se consigue con dicho 
número en modo G. Recuerda que el modo G se consigue con CAPS SHIFT y 9; 
igualmente para quitarlo. 


Si en lugar de un gráfico, tal y como lo tienes impreso en las teclas superiores, 
de la 1 a la 8 quieres el inverso, es decir, permutando el blanco y el negro 
entre sí, pulsa el número correspondiente y CAPS SHIFT en modo G. 


Si el carácter que está en modo G es una letra, (siempre mayúscula), deberás 
pulsar dicha letra en modo G. Si no lo haces así, observarás que cuando ejecutes 
el programa únicamente verás letras que corren en la pantalla. Quizá donde 
tendría que aparecer un tanque o una nave espacial verás una A o una B. 


El modo gráfico (G) indica que no queremos obtener la tecla que pulsamos, sino 
una grafía, un dibujo que identificamos con esa letra como nombre. 


Mediante el modo G puedes conseguir dos tipos de gráficos: El primer tipo tiene 
asignado como ''nombre'" un número del 1 al 8 y vienen dibujados en su 
correspondiente tecla; el segundo tipo tiene como 'nombre' una letra de la A a 

la Z. Este tipo lo forman los llamados gráficos definidos por el usuario (U.D.G.). 


Vamos a ver el proceso mediante el que se definen los U.D.G. Cada posición es 

un cuadrado dividido en 8x8 puntos (cuadraditos). Para definir un U.D.G., por 
ejemplo la letra A, primero dibujamos el gráfico que queremos asignar a la letra 
A sobre una cuadrícula de 8x8 puntos; rellenaremos de negro algunos cuadritos 

de modo que formen el dibujo que queremos. Este dibujo vamos a hacer que se 
convierta en un número, mejor dicho, en ocho números que se puedan almacenar en 
el ordenador. 


El primer número corresponderá a la primera fila de nuestra cuadrícula, el 
segundo a la segunda y así sucesivamente. 


Tomamos la primera fila, y formamos un número de ocho cifras (dígitos) con ceros 
y unos. Pondremos un uno si el cuadradito (pixel) está relleno de negro y un 
cero si está en blanco. De este modo obtendremos un número binario y así se lo 
tendremos que indicar al ordenador; esto se hace poniendo BIN 10010010. 


Podrás indicar al ordenador el mismo número también en sistema decimal pasando 
este número de sistema binario a decimal, en cuyo caso no es preciso poner BIN. 
Caso de ser el número el BIN 001001000, este número sería el mismo que el 

BIN 101000 e igual que poner 40. 


Para indicar esto al ordenador pondremos: 
POKE USR "A"+ O, 40 Óó bien POKE USR "A'+0, BIN 101000. 


"A"+0 indica que el número representa la primera fila del U.D.G. que está 


guardado en la letra A en modo G. Repitiendo este mismo proceso con las otras 
siete filas, definiremos el U.D.G. en la A. 
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Te recomendamos que leas el capítulo 14 de tu manual Spectrum. 


Ten especial cuidado de que cada caracter tenga definidas sus ocho filas, es 
decir, existan ocho números para cada caracter, ya que de lo contrario, tendrás 
problemas al ejecutar el programa. 


APENDICE B 
MOVIEMIENTO CON EL SPECTRUM 


Habras observado que en el Spectrum hay dos modos elementales de lograr 
movimientos dirigidos desde el teclado. Te vamos a hablar de ambos métodos, que 
además son usados en los. programas que te presentamos. Según los casos puede 
ser más útil un sistema u otro. 


El primer sistema de dirigir el movimiento desde el teclado es mediante la 
sentencia INKEY$. 


INKEY$ es una función BASIC que lee directamente el teclado. Cada vez que el 
ordenador pase por una sentencia INKEY$, tendrá la oportunidad de leer una 
tecla del teclado. 


Ayudados por este comando, veamos como dirigir el movimiento desde el teclado. 


Supongamos que las coordenadas que tiene nuestro móvil sean X e Y, A y B serán 
las coordenadas después del movimiento, es decir, las variables que sufren el 
cambio al pulsar alguna tecla. 


Un pequeño programa para dirigir el movimiento con los cursores, teclas 5, 6, 7, 8 
del teclado, puede ser: 


10 LET A=16: LET B=10 

20 LET X=A: LET Y=B 

30 IF INKEY$="" THEN GO TO 30 
40 IF INKEY$="7" THEN LET B=B-1 
50 IF INKEY$="6" THEN LET B=B+1 
60 IF INKEY$="5" THEN LET A=A-1 
70 IF INKEY$="8" THEN LET A=A+1 
80: 'PRINT «AT YX," " 

90 PRINT AT B,A;"*" 

100 GO TO 20 


Teclea ahora RUN 90 para comenzar la ejecución e intenta moverte en diagonal, 
verás que te es imposible. 


Vamos a estudiar con más cuidado este programa: 
Observa que 10 inicializa A y B. 
Mediante 20 almacenamos el valor de A y B como X e Y. 


30 es una sentencia de espera, el ordenador se detendrá en ella mientras tu no 
oprimas alguna tecla. 


desde la sentencia 40 a la 70, el ordenador lee el teclado, en este caso los 


cursores, y modifica los valores de A y B para llevar el gráfico en la dirección 
que tu has indicado. 
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Mediante 80 borras la posición anterior almacenada en X e Y y mediante 90 
imprimes el gráfico en la nueva posición. 


El programa vuelve después a empezar desde 20. 


Imagina ahora que tu quieres efectuar dos movimientos a la vez, como 

podría ser intentar mover el asterisco en diagonal. La sentencia INKEY$ sólo 
lee una tecla del teclado, luego aunque tu pulsaras dos, el ordenador sólo 
leería una y, por tanto, ejecutaría una. 


Mediante la sentencia IN puedes lograr que tu programa lea más de una tecla 
pulsada a la vez. 


IN es una función parecida a PEEK. El argumento de IN es una dirección de memoria, 
y su resultado es el número (byte) almacenado en esa dirección de memoria. 


El teclado está dividido en ocho semifilas de cinco teclas cada una. Cada 
semifila está controlada por una dirección de memoria. 


En esencia la función IN actúa de igual modo que ocho sentencias INKEY$ distintas 
cada una de las cuales lee una semifila del teclado. Si pulsas dos teclas 
pertenecientes a dos semifilas distintas el programa ejecutará los dos 
movimientos. Ahora bien, si pulsas dos teclas pertenecientes a la misma semifila 
sucederá lo mismo que con INKEY$. 


Las direcciones que leen cada semifila son: 
IN 65278 lee la semifila CAPS SHIFT a V 


IN 65022 lee la semifila A a G 
IN 64510 lee la semifila Q a T 
IN 63486 lee la semifila 1l a 5 
IN 61438 lee la semifila O a 6 
IN 57342 lee la semifila P a Y 


IN 49150 lee la semifila ENTER a H 
IN 32766 lee la semifila SPACE a B 


En cada una de estas direcciones se almacena un byte. Este byte está formado por 
ocho bits. Los tres primeros que son los de más peso valen siempre 1; los otros 
cinco indican la tecla, dentro de la semifila que está siendo pulsada. Nuestro 
byte sería: 

1 1 E D4 D3 D2 D1 DO 


Unicamente uno de estos cinco bits será cero, y ese indicará que tecla es la 
que estamos pulsando. 


Que DO sea nulo, indica que en esa semifila se está pulsando la tecla más alejada 
de la parte central del teclado; mientras que si es D4 el bit es nulo, es la más 
cercana a la parte central del teclado la que está siendo pulsada. 


Los números que forman los ocho bits, según cual es cero, es decir, según la 
tecla que pulsemos son: 

254 si DO=0 

253 si DÍ=0 

251 si D2=0 

247 si D3=0 

239 si D4=0 


De todo lo explicado sobre IN, se deduce fácilmente que tenemos otro sistema 
para crear movimiento dirigido desde el teclado. 
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Vamos a dirigir el movimiento del asterisco ahora mediante la sentencia IN. 
Deberemos modificar únicamente las líneas 30, 40, 50 y 60 que pasarán a ser como 
se indica a continuación: 

30 IF IN 63486=239 THEN LET A=A-1 

40 IF IN 61438=251 THEN LET A=A+1 

50 IF IN 65022=254 THEN LET B=B+1 

60 IF IN 64510=254 THEN LET B=B-1 


Con esta verificación podrás mover el asterisco también en diagonal. Las teclas 
son: 5 izquierda, 8 derecha, Q arriba, A abajo. Observa que hemos tenido el 
cuidado de no elegir dos teclas de una misma semifila. 


Te recomendamos que ejecutes ambos programas (RUN 90), y compares el movimiento 
del asterisco en ambos casos. 


APENDICE C 
PONIENDO A PUNTO TUS PROGRAMAS 


Ya has tecleado pacientemente un programa. Ahora llega la hora de ver si tu 
trabajo es recompensado con un programa que ruede bien. 


Puede ocurrir que cuando inicies la ejecución el programa se interrumpa y te 
imprima un mensaje de error. En el apéndice B del manual del Spectrum encontrarás 
la explicación de todos los tipos de errores y diagnósticos. 


En primer lugar, para buscar el error, observa la construcción del mensaje: 
2 Variable not found 30:1 


El primer número que aparece, el 2 en este caso, es el código del error. A 
continuación viene escrito el significado, en este caso variable not found 
(variable no hallada). Siguen dos números separados por dos puntos; el primero 
indica el número de línea donde se ha producido el error y el segundo el 

número de sentencia dentro de esa línea, en nuestro caso habría sido en la 
primera sentencia de la línea 30. Recuerda que dentro de una línea las sentencias 
van separadas por dos puntos. 


Ya conoces ahora la sentencia que ha dado lugar al error. La recomendación que 
te damos es que repases esa sentencia para ver si está bien copiada. Si está 
bien, deberás repasar las sentencias del listado que contengan a las variables 

o funciones definidas por ti presentes en la sentencia errónea, limitada a 
buscar por la parte del listado por donde haya pasado el ordenador leyendo antes 
de llegar a la sentencia errónea. 


Será distinto cuando el programa funcione, pero no lo haga como debería hacerlo. 
En este caso es fundamental tu habilidad y esperiencia para corregirlo. Si no 
encuentras el error en un principio un sistema bastante bueno, y muy metódico 
consiste en ir aislando el error. 


Introduce una sentencia STOP entre dos líneas cualquiera, cuando el programa 
llegue a ésta se detendrá. Si el programa hasta ese momento se iba ejecutando 
bien será porque el error está después de la línea anterior al STOP. 


Puede suceder que el programa no se detenga, o que en Caso de detenerse, cuando 
esto ocurra ya no estaba funcionando bien. En el primer caso el programa nunca 
pasa por la sentencia STOP, lo que indica que antes de ésta hay algún error, 
quizá el número que sigue a alguna sentencia GO TO está equivocada. En el 
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segundo caso, ya sabes entre que sentencias está el error. Repite esta operación 
varias veces e irás cercando el error. 


Puedes hacerte una idea de la causa, o de las variables involucradas en el error, 
imprimiendo algunos valores de las variables que se manejan en la zona errónea, 
siempre y cuando, claro está, tengas por lo menos una idea aproximada de los 
valores que deberían tener. 


No desesperes y con un poco de práctica verás como consigues "olfatear" los 
errores. 


Una fuente de errores bastante usual son las sentencias que definen los Gráficos 
Definidos por el Usuario (U.D.G.). Bien porque los DATAS correspondientes no 

sean correctas, falte o sobre algún número, bien porque en lugar de una variable 
alfanumérica hay una numérica, y viceversa. Si el programa falla en la definición 
de los U.D.G. (suele emitir un informe C NONSENS TN BASTC) repasa especialmente 
las sentencias que incluyen las funciones POKE y DATA. 


Ya has conseguido que tu programa se ejecute correctamente y sin errores, te 
recomendamos que ahora lo compactes un poco. 


El programa se te presenta sin compactar para que te sea más sencillo teclearlo, 
y detectar los errores que hubieras podido cometer al hacerlo. 


Para compactar el programa, elimina en primer lugar todas las sentencias REM. 
A continuación compacta los PRINT, es decir reduce todas las instrucciones PRINT, 
que vayan seguidas a una sola, encadenándolas según: 
PRINT AT... ¿ATo.o co j¡ATe.oc.s 
Procura así mismo tener líneas con más sentencias, para ello pon varias 


sentencias en una misma línea separadas por dos puntos. Observarás que tu 
programa ha ganado en rapidez. 


118 


«Superprogramas Spectrum» 

es una publicación de MICROS, 
Revista Práctica del Ordenador 
Personal, editada por Ediciones 
Arcadia, S. A. 


Director de la colección: 
Angel González. 

Edición de los programas: 
Gerardo Gutiérrez. 
Ediciones Arcadia, S. A. 
Víctor de la Serna, 4 bajo. 
28016 Madrid. 

Teléfonos: 259 82 04/03/02. 


Imprime: OMNIA 1.G. 
1,5.S.N.:0212-7261 
Depósito legal: M-42,200-1983 


k 


